Cod sursa(job #17340)

Utilizator h_istvanHevele Istvan h_istvan Data 15 februarie 2007 18:32:26
Problema Factorial Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.25 kb
Raporteaza aceasta sursa 
program facti;
var f:text;
    n:longint;

begin
     assign(f,'facti.in');
     reset(f);
     readln(f,n);
     close(f);
     assign(f,'facti.out');
     rewrite(f);
     if(n=0) then write(f,1)
     else write(f,n*5);
     close(f);
end.