Cod sursa(job #214015)

Utilizator mitrutzDumitru Albu mitrutz Data 12 octombrie 2008 14:30:23
Problema Factorial Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.27 kb
Raporteaza aceasta sursa 
var f,g:text;
   p,n:longint;

   begin
       assign(f,'fact.in');
       assign(g,'fact.out');
       reset(f);
       rewrite(g);
       read(f,p);
       if p<>0 then n:=5*p
       else n:=1;
       write(g,n);
       close(f);
       close(g);

   end.