Cod sursa(job #97107)

Utilizator Madalina_555ene madalina Madalina_555 Data 5 noiembrie 2007 12:58:11
Problema Factorial Scor 5
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
var m,nr,a:longint;
    f:text;
begin
     assign(f,'fact.in');
     reset(f);
     readln(f,m);
     close(f);
     nr:=-1;
     if (m=5) or (m=26) or(m=127) or (m=628)then
     else begin
       a:=m div 5;
       m:=m-a;
       nr:=m*5;
     end;
     assign(f,'fact.out');
     rewrite(f);
     writeln(f,nr);
     close(f);
end.