Cod sursa(job #694684)

Utilizator iu.ciocoiuIulian iu.ciocoiu Data 27 februarie 2012 22:43:31
Problema Factorial Scor 5
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.31 kb
Raporteaza aceasta sursa 
program factorial;
var f,g:text;
    p,n:longint;
begin
assign (f,'fact.in'); reset (f);
assign (g,'fact.out'); rewrite (g);
read (f,p);
if (p=0) then write (g,'-1')
         else if (p mod 6=5) then write (g,'-1')
                             else write (g,5*(p-(p div 5)));
close (f);
close (g);
end.