program dokon;
uses Crt;
var n,i,s : integer;

begin
  clrscr;
  writeln('Zadaj cislo, o ktorom chces zistit ci je dokonale:');
  readln(n);
  s:=0;
  for i:=1 to trunc(n/2) do
    if (n mod i)=0 then s:=s+i;
  if s=n then writeln('Ahoj, vase cislo je dokonale.')
    else writeln('Skoda, vase cislo nie je dokonale.');
  readln;
end.