Cod sursa(job #58993)

Utilizator deleted_64d853f2e2bbccbeDELETED deleted_64d853f2e2bbccbe Data 7 mai 2007 21:12:47
Problema Factorial Scor 5
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
program radu;
var p:longint;
    r:longint;
    f,g:text;
begin
     assign (f,'fact.in');
     reset (f);
     assign (g,'fact.out');
     rewrite (g);
     readln (f,p);
     if (p mod 6)=0 then p:=p-1;
     r:=(p-1) div 6;
     p:=p*5;
     r:=(r+1) * 5;
     p:=p-r+5;
     writeln (g,p);
     close (f);
     close (g);
end.