Дан отрезок [A,B]. Вычислить количество целых чисел этого отрезка, являющихся квадратами целых чисел — Pascal(Паскаль)

uses crt;
var
a,b,i,s:integer;
begin
writeln('Enter a,b');
readln(a);
readln(b);
for i:=trunc(sqrt(a))+1 to trunc(sqrt(b)) do
 writeln(i);
readln;
end.