Cod sursa(job #78410)

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