Cod sursa(job #77144)

Utilizator ioalexno1Alexandru Bunget ioalexno1 Data 13 august 2007 13:20:02
Problema Frac Scor 20
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
program p1;
var f:text;
    i,d,e,g,n,p,r:longint;
begin
assign(f,'frac.in');reset(f);
read(f,n,p);
close(f);
i:=0;
d:=0;
repeat
i:=i+1;
e:=i;
g:=n;
r:=e mod g;
while r<>0 do
      begin
      e:=g;
      g:=r;
      r:=e mod g;
      end;
if g=1 then d:=d+1;
until d=p;
assign(f,'frac.out');rewrite(f);
write(f,i);
close(f);
end.