program factorial1;
 var p:byte;
 procedure citire;
 var f:text;
 begin
 assign(f,'fact.in');
 reset(f);
 read(f,p);
 close(f);
 end;
 function det(p:byte):integer;
 var i,n,c:byte;
     s:word;
 begin
 if p>0 then
 det:=p*5;
 if p=0 then
 det:=1;
 end;
 procedure afisare;
 var f:text;
 begin
 assign(f,'fact.out');
 rewrite(f);
 write(f,det(p));
 close(f);
 end;
 begin
 citire;
 afisare;
 end.