program hamfa; uses crt; var A: array[1..500] of integer; i, n, k: integer; 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: '); for i:=1 to n do if A[i]>0 then begin k:=trunc(sqrt(A[i])); if sqr(k)=A[i] then write(A[i]:3); end; readln end.
uses crt; var i,n:longint; a:array[1..1000000] of longint; begin clrscr; readln(n); for i:=1 to n do read(a[i]);readln; for i:=1 to n do if sqrt(a[i])=trunc(sqrt(a[i])) then write(a[i],' '); readln; end.
