var a: array[0..10000] of integer;
n,i,j,k,d:integer;
begin
assign(input,'Bai1.inp');reset(input);
assign(output,'Bai1.out');rewrite(output);
readln(n);
for i:=0 to n-1 do
read(a[i]);
d:=0;
for i:=0 to n-2 do
for j:=i+1 to n-1 do
for k:=j+1 to n-1 do
begin
if (a[i]*a[i]+a[j]*a[j]=a[k]*a[k]) or
(a[i]*a[i]+a[k]*a[k]=a[j]*a[j]) or
(a[j]*a[j]+a[k]*a[k]=a[i]*a[i]) then
inc(d);
end;
if d=0 then
writeLn(0)
else
writeln(d);
end.

1Khai báo biến và nhập dữ liệu:

-Khai báo các biến a (mảng số nguyên), n (số lượng phần tử), i, j, k (chỉ số cho các vòng lặp) và d (đếm số bộ Pythagoras).

-Nhập số lượng phần tử của mảng từ người dùng (n).

-Khởi tạo độ dài của mảng a với n phần tử.

-Sử dụng vòng lặp for để nhập các giá trị của mảng a từ người dùng.

2.Kiểm tra và đếm các bộ số Pythagoras:

`@`Sử dụng ba vòng lặp lồng nhau để kiểm tra tất cả các bộ ba số trong mảng.

$@$Vòng lặp ngoài cùng chạy từ i = 0 đến n - 2.

$@$Vòng lặp giữa chạy từ j = i + 1 đến n - 1.

$@$Vòng lặp trong cùng chạy từ k = j + 1 đến n - 1.

$@$Trong mỗi lần lặp, kiểm tra xem bộ ba số a[i], a[j], a[k] có thỏa mãn điều kiện của bộ số Pythagoras không:

+a[i]^2 + a[j]^2 = a[k]^2

+a[i]^2 + a[k]^2 = a[j]^2

+a[j]^2 + a[k]^2 = a[i]^2

`@`Nếu có một trong các điều kiện trên thỏa mãn, tăng biến dlên 1.

3.In kết quả:

`@`Nếu d bằng 0, in ra 0 (không có bộ số Pythagoras nào).

`@`Ngược lại, in ra số lượng bộ số Pythagoras tìm được.

#include <bits/stdc++.h>
using namespace std;
int Ans(vector<int>& a, int n)
{
    for (int i = 0; i < n; i ++) a[i] = a[i] * a[i];
    sort(a.begin(), a.end());
    int s = 0;
    for (int i = n - 1; i >= 2; --i)
    {
        int c = a[i];
        int trai = 0;
        int phai = i - 1;
        while (trai < phai)
        {
            int x = a[trai] + a[phai];
            if (x == c)
            {
                s ++;
               trai ++;
                phai --;
            } 
            else if (x < c) trai++;
            else phai --;
        }
    }
    return s;
}
int main()
{
    freopen("BAI1.INP", "r", stdin);
    freopen("BAI1.OUT", "w", stdout);
    int n; cin >> n;
    vector<int> a(n);
    for (int i = 0; i < n; i ++) cin >> a[i];
    cout << Ans(a, n);
}