var x: real;
begin writeln('x', #9, 'y'); x := 4; while(x <= 10) do begin writeln(x:3:1, #9, x * x:4:2); x := x + 0.1; endend.
var
x: real;
begin
writeln('x', #9, 'y');
x := 4;
while(x <= 10) do
begin
writeln(x:3:1, #9, x * x:4:2);
x := x + 0.1;
end
end.