uses crt;
var n,i,count,count1:longint;

function cp(a:longint):boolean;
begin
   exit(sqrt(a)=trunc(sqrt(a)));
end;

function hh(a:longint):boolean;
var i,sum:longint;
begin
   sum:=0;
   for i:=1 to a div 2 do
      if a mod i=0 then inc(sum,i);
   exit(sum=a);
end;

begin
clrscr;
   readln(n);
   while n<>0 do
      begin
         if cp(n mod 10) then inc(count);
         if hh(n mod 10) then inc(count1);
         n:=n div 10;
      end;
   writeln('Chinh phuong co: ',count);
   write('Hoan hao co: ',count1);
readln;
end.

uses crt;
var cnt1,cnt2,n,m:longint;
begin
    clrscr;
    readln(n);
    while n<>0 do
        begin
            m:=n mod 10;
            if frac(sqrt(m))=0 then inc(cnt1);
            if m=6 then inc(cnt2);
        end;
    writeln('Co ',cnt1,' so chinh phuong');
    writeln('Co ',cnt2,' so hoan hao');
readln;
end.