Cod sursa(job #429032)

Utilizator ageofandyAndi Dica ageofandy Data 29 martie 2010 19:46:58
Problema Factorial Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.22 kb
Raporteaza aceasta sursa 
var f : text;
   p,n : longint;
begin
     assign(f,'fact.in'); reset(f);
     readln(f,p);
     close(f);
     n:=p*5;
     if p=0 then n:=1;
     assign(f,'fact.out'); rewrite(f);
     write(f,n);
     close(f);
end.