I: word;

BEGIN

Inc(k,n);

Inc(p,n+1);

FOR i:= n+1 DOWNTO 0 DO

BEGIN

p^:= k^ / i;

Dec(k);

Dec(p);

END;

END;

PROCEDURE CombMass (VAR a: PolyF; VAR b: PolyS);

VAR

I,V,w : word;

s: REAL;

BEGIN

IF n mod 2 = 0 THEN w:= round(n/2)

ELSE w:= abs(round(n/2)-1);

IF m mod 2 = 0 THEN v:= round(m/2)

ELSE v:= abs(round(m/2)-1);

FOR i:= w DOWNTO 0 DO

BEGIN

s := a[i];

a[i] := a[n-i];

a[n-i] := s;

END;

FOR i:= v DOWNTO 0 DO

BEGIN

s := b[i];

b[i] := b[m-i];

b[m-i] := s;

END;

END;

{Initialization} // ЋЇЁб ­ЁҐ Є®­бв ­в Ё ЇҐаҐ¬Ґ­­ле, ЁбЇ®«м§гҐ¬ле ў ¬®¤г«Ґ.

END.