{* Задача 266 *}

Unit ZADACH266;
Interface
Implementation
Begin
 writeln('В возрастающем порядке напечатать все целые числа из диапазона 1..10000, представимые в виде n²+m², где n, m > =0 ');
End.

Program zadach266;

Uses zadach266.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  k : longint;
  i : longint;
  m : longint;
  n : longint;
Begin
  clrscr; {* Очищаем экран *}
  For i := 1 To 20 Do {* Увеличиваем i от 1 до 20 с шагом 1 *}
    For n := 1 To i Do {* Увеличиваем n от 1 до i с шагом 1 *}
      For m := 1 To i Do {* Переменная m увеличивается с 1 до i *}
      Begin
        If i = sqr(n) + sqr(m) Then
        Begin
          writeln (i, '=', sqr(n), '+', sqr(m));
        End;
        
      End;
  readln; {* Приостановка программы. Ожидание Enter *}
End.