Cod sursa(job #917964)

Utilizator sevestreanalinSevestrean Vasile sevestreanalin Data 18 martie 2013 15:13:22
Problema Fractii Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
var n,i,j,a,b,s :longint;
    f,g :text;
begin
assign(f,'fractii.in');reset(f);
assign(g,'fractii.out');rewrite(g);
read(f,n);
for i:= 1 to n do
  for j := 1 to n do
    begin
    a:=i;
    b:=j;
    while a<>b do
      if a>b then
        a:=a-b
      else
        b:=b-a;
    if a=1 then s:=s+1;
    end;
write(g,s);
close(g);
end.