Дан линейный массив а[1..n], содержащий целые числа. получить те элементы массива , которые являются полными квадратами.

var

a:[1..100] array of integer;

i,n,p:integer;

begin

readln(n);

for i:=1 to n do

begin

readln(a[i]);

p:=2;

while (p*p<=a[i]) do

begin

if p*p=a[i] then writeln (a[i],' полный квадрат')

p:=p+1;

end;

end;

end.