Дан изначальный код на паскале program abc; var x,y: real; i: integer; begin x: =2; for i: = 2 to 8 do begin y: =(1-x)+2.5*(x*x*x)+(x*x*x*x); writeln ('x ='+x); writeln ('y='+y); x: =x+1.5; end end. заппишите значения x и y в 2 строчки и чтобы сначала шли целые значения а потом дробный

Var
x,y:real;
i: integer;
a,b:array [2..8] of real;
begin
x:=2;
for i:= 2 to 8 do begin
y:=(1-x)+2.5*(x*x*x)+(x*x*x*x);
a[i]:=a[i]+x;
b[i]:=b[i]+y;
x:=x+1.5;
end;
write('x ');
for i:= 2 to 8 do
write(a[i],' ');
writeln('');
write('y ');
for i:= 2 to 8 do
write(b[i],' ');
end.