Найдите значение функции у=56х2-32 на отрезке (1; 10) с шагом 1.

//Pascal ABC.NET v3.1 сборка 1172

Var
 y:real;
 i:integer;
begin
 for i:=1 to 10 do
  begin
   y:=56*sqr(i)-32;
   writeln('x=',i,' y=',y);
  end;
end.

Var
  i: integer;

begin
  for i := 1 to 10 do
    writeln('x=', i:2, ' y=', (56 * sqr(i) - 32):4);
end.