program mass;
uses crt;
const N=3;
M=3;
var
A:array[1..N]of integer;
B:array[1..M]of integer;
C:array[1..M+N-1]of integer;
i,KB,KA,Koef,k: integer;
begin
clrscr;
for i := 1 to N do {zapolnenie i vivod massiva}
begin
write('vvedite element 1-go polinoma');
writeln;
read(A[i]);
end; for i := 1 to M do {zapolnenie i vivod massiva}
begin
write('vvedite element 2-go polinoma');
writeln;
read(B[i]);
end;
k:=2;
for i := 1 to N+M-1 do
begin
if i<=N then
begin
KB:=i;
Koef:=0;
for KA:=1 to i do
begin
Koef:=Koef+A[KA]*B[KB];
KB:=KB-1;
end;
C[i]:=Koef;
end
else
begin
KB:=N;
Koef:=0;
for KA:=k to N do
begin
Koef:=Koef+A[KA]*B[KB];
KB:=KB-1;
end;
C[i]:=Koef;
k:=k+1;
end;
end;
