program perfect(input,output);
var a,s,i:integer;
begin
   write('vvedite chislo:'); read(a);
   s:=1;
     for i:=2 to trunc(sqrt(a)) do if a mod i=0 then s:=s+i+a div i;
       if s=a then writeln('chislo-sovershenno')
       else writeln('chislo-nesovershenno')
end.

