Вводятся целые числа a и b. ( a<= b). Вывести все числа на отрезке от a до b, являющиеся полными квадратами.
Var a,b,i: integer;
Begin
Read (a, b);
For i:= a to b do
if trunc(sqrt(i))=sqrt(i)
Then Writeln(i)
End.