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 endend.Результат выполнения программы:x=-2.0 y=24.00x=-1.9 y=21.95x=-1.8 y=20.00x=-1.7 y=18.15x=-1.6 y=16.40x=-1.5 y=14.75x=-1.4 y=13.20x=-1.3 y=11.75x=-1.2 y=10.40x=-1.1 y=9.15x=-1.0 y=8.00x=-0.9 y=6.95x=-0.8 y=6.00x=-0.7 y=5.15x=-0.6 y=4.40x=-0.5 y=3.75x=-0.4 y=3.20x=-0.3 y=2.75x=-0.2 y=2.40x=-0.1 y=2.15x= 0.0 y=2.00x= 0.1 y=1.95x= 0.2 y=2.00x= 0.3 y=2.15x= 0.4 y=2.40x= 0.5 y=2.75x= 0.6 y=3.20x= 0.7 y=3.75x= 0.8 y=4.40x= 0.9 y=5.15x= 1.0 y=6.00x= 1.1 y=6.95x= 1.2 y=8.00x= 1.3 y=9.15x= 1.4 y=10.40x= 1.5 y=11.75x= 1.6 y=13.20x= 1.7 y=14.75x= 1.8 y=16.40x= 1.9 y=18.15x= 2.0 y=20.00