Умножение массивов - Pascal - Ответ 993836

uses crt;
var
a:array[1..50] of real;
b:array[1..50] of real;
c:array[1..50] of real;
i,n,m,k:integer;
begin
clrscr;
write('Kolvo elementov pervogo massiva='); readln(n);
write('kolvo elementov vtorogo massiva='); readln(m);
writeln('Vvedite elementi pervogo massiva');
for i:=1 to n do
 begin
  write('a(',i,')=');
  readln(a[i]);
 end;
writeln('Vvedite elementi vtorogo massiva');
for i:=1 to m do
 begin
  write('b(',i,')=');
  readln(b[i]);
 end;
writeln('Perviy massiv');
for i:=1 to n do
 write(a[i]:8:3);
writeln;
writeln('Vtoroy massiv');
for i:=1 to m do
 write(b[i]:8:3);
writeln;
if n>m then k:=n else k:=m;
for i:=1 to k do
 begin
  if i>n then c[i]:=b[i] else
   if i>m then c[i]:=a[i] else c[i]:=a[i]*b[i];
 end;
writeln ('Tretiy massiv');
for i:=1 to k do
 write(c[i]:10:3);
readln
end.