Cod sursa(job #12552)

Utilizator floringh06Florin Ghesu floringh06 Data 4 februarie 2007 12:23:00
Problema Fractii Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
var fi,fo:text;
    a,b,n,i,j,ct:longint;

begin
assign(fi,'fractii.in'); reset(fi);
assign(fo,'fractii.out'); rewrite(fo);
readln(fi,n);
ct:=1;
for i:=1 to n do
 for j:=1 to i-1 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 inc(ct,2);
 end;
write(fo,ct);
close(fi);
close(fo);
end.