program Hello;
uses crt;
var a,b,n: longint;
begin
    write('Nhap n: '); readln(n);
    for a:= 1 to n do 
        for b:= a to n do 
            if trunc(sqrt(a*a + b*b)) = sqrt(a*a + b*b) then 
                writeln('a = ', a, ' b = ', b);
readln;
end.

===========================

Dùng hai vòng lặp for.

Vòng thứ nhất là biến a, chạy từ 1 tới n.

Vòng thứ hai là biến b, chạy từ a tới n ( chạy từ a đến n để tránh trùng lặp kết quả).

Nếu là số chính phương thì căn của nó không phải số thập phân. Tức là căn đã làm tròn (trunc) bằng căn chưa làm tròn.

uses crt;
var a,n,b:byte;
begin
    clrscr;
    readln(n);
    for a:=1 to n do
        for b:=1 to n do
            if frac(sqrt(a*a+b*b)) = 0 then
                writeln(a,' ',b);
readln;
end.