Натуральные числа а, b, с называются числами Пифагора, если выполняется условие а2 + b2 = с2. Напечатать все числа Пифагора (программа Паскаль)

Question

Натуральные числа а, b, с называются числами Пифагора, если выполняется условие а2 + b2 = с2. Напечатать все числа Пифагора, меньшие N.

Answer 1

var
a,b,n:integer;
begin
readln(n);
for a:=1 to n-1 do
  for b:=1 to n-1 do
 if (sqrt (a*a+b*b)=int( sqrt (a*a+b*b))) and( sqrt (a*a+b*b)<n) then writeln (a,' ',b,' ',trunc(sqrt(a*a+b*b)));
end.