var i, j, k, n: Integer; begin write ('Введите число: '); ReadLn (n); for i:=1 to n do for j:=i to n do for k:=j to n do if ((i*i+j*j)=k*k) then WriteLn('Найдено:', i, ' ', j, ' ', k); end.