Cod sursa(job #524454)

Utilizator nicolae536Bacila Nicolae nicolae536 Data 21 ianuarie 2011 16:51:54
Problema Factorial Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.28 kb
Raporteaza aceasta sursa 
var p,n,i:longint;
    f,g:text;
begin
assign(f,'fact.in');reset(f);
assign(g,'fact.out');rewrite(g);
readln(f,p); n:=0;
  for i:=1 to p do
        n:=n+5;
        if p=0 then n:=1
                ELSE IF p mod 10=0 then n:=n-5;
  writeln(g,n);
  close(f);close(g);
  end.