Cod sursa(job #1222)

Utilizator cosmyudreaudrea cosmin cosmyudrea Data 12 decembrie 2006 21:36:34
Problema Fractii Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.32 kb
Raporteaza aceasta sursa 
program fractii;
var a,i,j,n,b,r,x:longint;
    f,g:text;
begin
assign(f,'fractii.in');
assign (g,'fractii.out');
reset (f);
rewrite (g);
read (f,n);
for i:=1 to n do
for j:=1 to n do
begin
a:=i;
b:=j;
repeat
r:=a mod b;
a:=b;
b:=r;
until b=0;
if a=1 then x:=x+1;
end;
write (g,x);
close (f);
close (g)
end.