uses crt;
var i,n:longint;a:array[1..1000]of longint;
function CP(b:longint):boolean;
var j,kt:longint;
        begin
         for j:=1 to b do if(sqr(j)=b)then kt:=1;
         CP:=kt=1;
        end;
begin
 clrscr;
  write('nhap n:');readln(n);
  for i:=1 to n do
        begin
         write('a[',i,']=');readln(a[i]);;
        end;
  write('cac so chinh phuong la:');
  for i:=1 to n do if(CP(a[i]))then write(a[i],' ');
 readln
end.

Program baitap;

Uses crt;

Var A: array[1..100] of integer;

          i,N:integer;

Begin

Clrscr;

Write('N='); Readln(N);

For i:=1 to N do

     Begin

     Write('A[',i,']=');

     Readln(A[i]);

     End;

Write('Cac so chinh phuong:');

For i:=1 to N do

     If sqrt(A[i])=trunc(sqrt(A[i])) then write(A[i],'   ');

Readln

End.