дан изначальный код на паскале
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 строчки и чтобы сначала шли целые значения а потом дробный

varx,y:real;i: integer;a,b:array [2..8] of real;beginx:=2;for i:= 2 to 8 do beginy:=(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 dowrite(b[i],' ');end.