Cod sursa(job #969579)

Utilizator sevestreanalinSevestrean Vasile sevestreanalin Data 4 iulie 2013 18:30:11
Problema Factorial Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.32 kb
Raporteaza aceasta sursa 
var f,g:text;
    p,n,i,j:longint;
    ok:boolean;
begin
assign(f,'fact.in');reset(f);
assign(g,'fact.out');rewrite(g);
read(f,p);ok:=true;
while ok do
  begin
  n:=n+1;
  if n mod 2 =0 then
    i:=i+1;
  if n mod 5 =0 then
    j:=j+1;
  if (i>=p)and(j>=p) then
    ok:=false;
  end;
write(g,n);
close(g);
end.