Cod sursa(job #833992)

Utilizator gabimoiseMoise Gabriel gabimoise Data 13 decembrie 2012 16:29:05
Problema Factorial Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.26 kb
Raporteaza aceasta sursa 
program factorial;
var f,g:text;
    x,p,y,n:longint;
begin
  assign(f,'fact.in');reset(f);
  assign(g,'fact.out');rewrite(g);
  readln(f,p);
  x:=p div 6;
  y:=p-x;
  n:=5*y;
  if n=0 then writeln(g,1)
         else writeln(g,n);
  close(f); close(g);
end.