Program so_chinh_phuong;
uses crt;
type ArrInt = array[1..250] of integer;
Var n,i,x,d : integer;
a: ArrInt;
BEGIN
clrscr;
{Nhap n va day gom n so tu nhien}
write('Nhap so phan tu cua day so: n = ');
readln(n);
for i:=1 to n do
begin
write('Phan tu thu ',i,'= ');
readln(a[i]);
end;
{Dem cac so chinh phuong co trong day so vua nhap}
d:=0;
for i:=1 to n do
begin
x:=trunc(sqrt(a[i]));
if sqr(x)=a[i] then
d:=d+1;
end;
writeln('So cac so chinh phuong co trong day so tren la: ',d);
readln;
END.

program btsydn;

uses crt;

  var i, d, a, n: integer;

begin

           clrscr;

           write('Nhap n = '); readln(n);

           d:=0;

           for i:=1 to n do if n>0 then

              begin

                     a:=trunc(sqrt(i));

                     if sqr(a)=i then d:=d+1;

              end;

           writeln('Co ', d, ' so chinh phuong tu 1 -> n ');

           readln

end.