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.
