Вводятся целые числа a и b. \( a\\lt = 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.