Cod sursa(job #78413)

Utilizator tebanadrianteban adrian tebanadrian Data 17 august 2007 17:29:54
Problema Factorial Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.22 kb
Raporteaza aceasta sursa 
 program factorial1;
 var p:byte;
     f:text;
 begin
 assign(f,'fact.in');
 reset(f);
 read(f,p);
 close(f);
 assign(f,'fact.out');
 rewrite(f);
 if p>0 then
 write(f,p*5)
 else
 write(f,1);
 close(f);
 end.