Cod sursa(job #587224)

Utilizator stelutaSfiriac Bianca steluta Data 4 mai 2011 12:06:27
Problema Factorial Scor 15
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.32 kb
Raporteaza aceasta sursa 
var fin, fout:text;
    p, n:longint;

begin
   assign(fin, 'fact.in');
   assign(fout, 'fact.out');
   reset(fin);
   rewrite(fout);
   read(fin, p);
   n:=p*5;
   if p mod 5=0 then
      begin
         n:=n-(p div 5 -1)*5;
      end;
   if p=0 then n:=1;
   writeln(fout, n);
   close(fin);
   close(fout);
end.