Вдиапазоне от a до b вычислить квадратные корни всех целых чисел.паскаль.

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

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