{* Задача 24 *}

Unit ZADACH24;
Interface
Implementation
Begin
 writeln('Натуральные числа а, б, с называются числами Пифагора, если выполняется условие а*а+b*b=с*с. Напечатать все числа Пифагора меньше N. ');
End.

Program pif(input, output);

Uses zadach24.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  n                     : integer;
Procedure write_pif(n : integer);
Var {* Необходимые переменные *}
  i : integer;
  j : integer;
  k : integer;
Begin
  For i := 1 To n - 2 Do {* Увеличиваем i от 1 до n с шагом 1 *}
    For j := i To n - 1 Do {* Увеличиваем j от i до n с шагом 1 *}
      For k := j To n Do {* Увеличиваем k от j до n с шагом 1 *}
      Begin
        If sqr(i) + sqr(j) = sqr(k) Then
        Begin
          write(i, ' ', j, ' ', k, ' ');
          writeln; {* Пустая строка *}
        End;
        
      End;
  
End;
Begin
  read(n);
  write_pif(n);
  readln; {* Приостановка программы. Ожидание Enter *}
  readln; {* Ждем подтверждения пользователя *}
End.