найдите Пифагоровы числа на заданном отрезке [a,b]. Пример 3^2+4^2=5^2 (степень) Помогите пожалуйста решить на паскал

В лоб — простым перебором:

var
A, B, N1, N2, N3 : Word;
begin
Write('A = '); ReadLn(A);
Write('B = '); ReadLn(B);
for N1 := A to B - 2 do
for N2 := N1 + 1 to B - 1 do
for N3 := N2 + 1 to B do
if N1*N1 + N2*N2 = N3*N3 then
WriteLn('(', N1, ',', N2, ',', N3, ')');
end.