Дана последовательность n целых чисел, определить есть ли среди них точные квадраты и вывести их на экран

uses crt;
var n,c,k,i: integer;
begin
write('n='); readln(n);
for i:=1 to n do
    begin
    write('-->'); readln(c);
    if sqrt(c)=round(sqrt(c)) then inc(k);
    end;
writeln(k,' полных квадратов');
readln;
end.

uses crt;
const nmax=100;
var n,c,k,i: integer;
    a: array [1..nmax] of integer;
begin
write('n (ne bolee ',nmax,')='); readln(n);
for i:=1 to n do
    begin
    write('-->'); readln(c);
    if sqrt(c)=round(sqrt(c)) then
       begin
       inc(k);
       a[k]:=c;
       end;
    end;
if k=0 then writeln('нет полных квадратов') else
   begin
   writeln(k,' полных квадратов') ;
   for i:=1 to k do
       write(a[i]:4);
   end;
readln;
end.

uses crt;
var n,c,k,i: integer;
begin
write('n='); readln(n);
for i:=1 to n do
    begin
    write('-->'); readln(c);
    if sqrt(c)=round(sqrt(c)) then
       begin
       inc(k);
       writeln(c,'-полный квадрат');
       end;
    end;
if k>0 then writeln(k,' полных квадратов') else writeln('нет полных квадратов');
readln;
end.