Составьте таблицу значений функции y = 5x² - 2x +1 на отрезке [-5; 5] с шагом b = 2. c for и repeat pascal

1.
const a0=-5; ak=5; b=2;
var x,y,i:integer;
begin
x:=a0-b;
writeln('  x   y');
for i:=0 to round((ak-a0)/b) do
 begin
 x:=x+b;
 y:=5*x*x-2*x+1;
 writeln(x:3,' ',y:4);
 end;
end.

2.
const a0=-5; ak=5; b=2;
var x,y,i:integer;
begin
x:=a0-b;
writeln('  x   y');
repeat
 x:=x+b;
 y:=5*x*x-2*x+1;
 writeln(x:3,' ',y:4);
until x>=ak;
end.

Результат:
  x  y
-5 136
-3  52
-1   8
 1   4
 3  40
 5 116

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

1. Цикл for

begin
  for var i:=1 to (5-(-5)) div 2+1 do begin
    var x:=2*(i-1)-5;
    Writeln(x:2,1+x*(-2+5*x):5)
    end
end.

Результат
-5  136
-3   52
-1    8
 1    4
 3   40
 5  116

2. Цикл repeat

begin
  var x:=-5;
  repeat
    Writeln(x:2,1+x*(-2+5*x):5);
    x+=2
  until x>5
end.