Дан линейный массив А[1…

vara: [1… 100] array of integer; i,n,p: integer; beginreadln (n); for i: =1 to n dobeginreadln (a[i]); p: =2; while (p*p <= a[i]) dobeginif p*p=a[i] then writeln (a[i],' полный квадрат') p: =p+1; end; end; end.