program numerefrumoase;
uses crt;
var numar,nr,a,b,c:integer;


procedure prim(l1,l2,l3:integer);
begin
nr:=numar;
if (numar mod l1)=0 then begin
while (numar mod l1)=0 do begin
                             a:=numar div l1;numar:=a;end;
                             if (numar mod l2)=0 then begin
                             while (a mod l2)=0 do begin
                                       b:=a div l2;a:=b;end;
                                       if (b mod l3)=0 then begin
                                       while (b mod l3)=0 do begin
                                                          c:=b div l3;b:=c;end;
                                                          end;end;
if (b=1) or (a=1) then write(nr);
end;
end;

begin
clrscr;
write('numar');readln(numar);
prim(5,3,2);
numar:=nr;
prim(5,2,3);
end.