найдите Пифагоровы числа на заданном отрезке [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.