Протабулировать функцию y=5x^2 - x + 2 в диапазоне от - 2 до 2 с шагом 0,1

Var

x:real;

begin

x:=-2;

while x<=2.001 do begin

Writeln ('x=', x:4:1,' y=',5*sqr (x) - x+2:0:2) ;

x:=x+0.1

end

end.

Результат выполнения программы:

x=-2.0 y=24.00

x=-1.9 y=21.95

x=-1.8 y=20.00

x=-1.7 y=18.15

x=-1.6 y=16.40

x=-1.5 y=14.75

x=-1.4 y=13.20

x=-1.3 y=11.75

x=-1.2 y=10.40

x=-1.1 y=9.15

x=-1.0 y=8.00

x=-0.9 y=6.95

x=-0.8 y=6.00

x=-0.7 y=5.15

x=-0.6 y=4.40

x=-0.5 y=3.75

x=-0.4 y=3.20

x=-0.3 y=2.75

x=-0.2 y=2.40

x=-0.1 y=2.15

x = 0.0 y=2.00

x = 0.1 y=1.95

x = 0.2 y=2.00

x = 0.3 y=2.15

x = 0.4 y=2.40

x = 0.5 y=2.75

x = 0.6 y=3.20

x = 0.7 y=3.75

x = 0.8 y=4.40

x = 0.9 y=5.15

x = 1.0 y=6.00

x = 1.1 y=6.95

x = 1.2 y=8.00

x = 1.3 y=9.15

x = 1.4 y=10.40

x = 1.5 y=11.75

x = 1.6 y=13.20

x = 1.7 y=14.75

x = 1.8 y=16.40

x = 1.9 y=18.15

x = 2.0 y=20.00