Вычислить значение функции y=2*sqr(x)+5, для значений Х, изменяющихся от -3 до

//PascalABC.NET v3.3 1633

begin

var x: real;

x:=-3.0;

while x lt; 1.1 do

begin

 var y:=2*sqr(x)+5;

 writeln('X = ' + (x:0:1) + '; Y = ' + (y:0:2));

 x += 0.1;

end;

writeln();

x:=-3.0;

repeat

 var y:=2*sqr(x)+5;

 writeln('X = ' + (x:0:1) + '; Y = ' + (y:0:2));

 x += 0.1;

until x gt; 1.1;

end.