uses crt;
var n, i: integer;
x, y: real;
begin
clrscr;
n:=round(4/0.5)+1;
x:=-2;
for i:=1 to n do
begin
y:==2.4*x*x+5*x-3;
writeln('x=', x:4:1, 'y=', y:6:2);
x:=x+0.5;;
end;
readln
end.
Что-бы менять вид таблицы меняй цифры в строчке writeln('x=', x:4:1, 'y=', y:6:2);