Реализовать основные операции с вещественными многочленами - Pascal - Ответ 567849

uses crt;
const
     m=10;
type
    vector=array [1..m] of integer;
procedure slogenie(x,y:vector;g,h:integer;
                   var z:vector);
var
   t:integer;
begin
 
  for t:=1 to m do
    z[t]:=x[t]+y[t];
  if g>h then
  begin
     writeln('v rezultate slogeni9 poluchils9 mnog stepeni ',g);
     writeln('s koefficentami');
    for t:=1 to g+1 do
      writeln(z[t]);
  end
  else
  begin
    writeln('v rezultate slogeni9 poluchils9 mnog stepeni ',h);
    writeln('s koefficentami');
    for t:=1 to h+1 do
      writeln(z[t]);
  end;
end;
var
   a,b,f:vector;
   i,c,d,e:integer;
begin
  clrscr;
  writeln('vvedite stpenb pervogo mnog');
  readln(c);
  writeln('vvedite koefficentbl,nachina9 so starshei stepeni');
  for i:=1 to c+1 do
    readln(a[i]);
  for i:=c+2 to m do
    a[i]:=0;
  writeln('vvedite stpenb vtorogo mnog');
  readln(d);
  writeln('vvedite koefficentbl,nachina9 so starshei stepeni');
  for i:=1 to d+1 do
    readln(b[i]);
  for i:=d+2 to m do
    b[i]:=0;
  writeln('vblberite deistvie,nagav na klavishu');
  writeln('1-slogenie');
  writeln('2-raznost');
  writeln('3-umnozhenie');
  writeln('4-proizvodna9');
  writeln('5-znachenie v tochke');
  writeln('6-vblxod');
  readln(e);
  case e of
    1:slogenie(a,b,c,d,f);
  {  2:
    3:
    4:
    5: }
    6:exit;
  end;
  readln;
end.