program ss;
var
  i,j,sum,x:integer;
begin
write('Vvedite 4islo: ');
readln(x);
sum:=0;
for i:=x-1 downto 1 do
  if x mod i = 0 then sum:=sum+i;
if sum = x
  then write('sovershennoe')
  else write('nesovershennoe');
readln;
end.