Cod sursa(job #875097)

Utilizator wollyFusy Wool wolly Data 9 februarie 2013 18:15:38
Problema Factorial Scor 25
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
var a,b:text;
c,d,e,f,g:longint;
begin
assign(a,'fact.in');
assign(b,'fact.out');
reset(a);
rewrite(b);
readln(a,c);

repeat
begin
e:=e+1;
g:=e;
if g mod 5=0 then repeat begin d:=d+1; g:=g div 5; end; until g mod 5<>0;
if d>c then begin f:=1; break; end;
end;
until d=c;

if f=0 then
write(b,e) else write(b,'-1');

close(a);
close(b);
end.