kage1998 Program gt;
var a,b,i:ineteger;
begin
readln(a,b);
for i:=a+1 to b-1 do
writeln(i,' ',sqrt(i));
end.

allllllllllllll Вот программа паскаль