Số nguyên tố cùng nhau

 Hai số được gọi là nguyên tố cùng nhau nếu ước chung của chúng chỉ là 1. Ví dụ: (8,9); (2,7) là hai cặp số nguyên tố cùng nhau. Lập chương trình tìm ra tất cả các cặp số nguyên tố cùng nhau trong đoạn m, n nhập từ bàn phím.
                                                                 Giải
Program BT3;
Uses crt;
Var m,n,i,j,a,b:integer;
Begin
   Clrscr;
   Write('Nhap m: '); Readln(m);
   Write('Nhap n: '); Readln(n);
   Write('Cac so nguyen to cung nhau trong khoang ',m,' den ',n,' la: ');
   For i:=m to n-1 do
       For j:= m+1 to n do
           Begin
               a:=i; b:=j;
               Repeat
                   If a>b then a:=a-b;
                   If a<b then b:=b-a;
               Until a=b;
               If a=1 then write('(',i,',',j,'); ');
           End;
   Readln;
END.