Hai số được gọi là nguyên tố cùng nhau khi chúng có ước chung lớn nhất là 1 Viết chương trình nhập n số nguyên từ bàn phím(n>=2) A. In ra các cặp số nguyên tố cùng nhau B. Đếm có bao nhiêu cặp số nguyên bằng nhau

uses crt;
type int = int64;
var a: array[0..10000] of int;
    i, j, n, cnt: longint;

function __gcd(a, b: int): int;
var r: int;
begin
    a:=abs(a); b:=abs(b);
    while b <> 0 do begin
        r:=a mod b;
        a:=b; b:=r;
    end;
    exit(a);
end;

begin
    readln(n);
    for i:=1 to n do read(a[i]);
    
    for i:=1 to n do
        for j:=i + 1 to n do
            if __gcd(a[i], a[j]) = 1 then begin
                writeln('(', a[i], ', ', a[j], ')');
                inc(cnt);
            end;
    writeln(cnt);
readkey;
end.