Ребят, если кто то разбирается

While

Program test1;

Var x:Real;

Begin

writeln(' x y') ;

x:=-3;

while x<=1+0.1 do

begin

writeln(x:4:1,' ',(2*sqr(x)+5):5:2);

x:=x+0.1;

end

End.

Repeat

Program test2;

Var x:Real;

Begin

writeln(' x y') ;

x:=-3;

repeat

writeln(x:4:1,' ',(2*sqr(x)+5):5:2);

x:=x+0.1;

until x>1.1;

End.