program soversh_chisla;

{$APPTYPE CONSOLE}

uses
SysUtils;

function Sov(num: integer):boolean;
var
temp: boolean;
i, summ: integer;

begin
temp:= False;

summ:=0;
for i:= 1 to num - 1 do
if num mod i = 0 then

  summ:= summ + i;
if num = summ then

  temp:= True;
Sov:= temp;
end;

var
a, i, kol: integer;
begin
writeln('Vvedite a');
readln(a);
kol:=0;
for i:= 1 to a do
  begin
  if Sov(i) then
    begin
    kol:=kol+1;
    writeln('Cbislo #', kol:3, ': ', i:5);
    end;
  end;
readln;
end.