{* Задача 277 *}

Unit ZADACH277;
Interface
Implementation
Begin
 writeln('Пифагоровыми числами называются числа, для которых выполняется равенство a²+b²= c^2. Например, 3²+4²= 5² следовательно числа 3, 4, 5 – пифагоровы. Составить программу, которая находит все пифагоровы числа, не превышающих 20. ');
End.

Program zadach277;

Uses zadach277.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Объявление переменных *}
  a  : integer; {первое число}
  b  : integer; {второе число}
  c  : integer; {третье число}
  a1 : integer; {первое число в квадрате}
  b1 : integer; {второе число в квадрате}
  c1 : integer; {третье число в квадрате}
  i  : integer; {счетчик цикла}
  cx : integer; {сумма квадратов первого и второго чисел}
Begin
  clrscr; {* Очищаем экран *}
  For a := 1  To 20 Do {* Увеличиваем a от 1 до 20 с шагом 1 *}
    a1 := SQR(a);
  For b := 1 To 20 Do {* Увеличиваем b от 1 до 20 с шагом 1 *}
    b1 := SQR(b);
  cx := a1 + b1;
  For c := 1 To 20 Do {* Увеличиваем c от 1 до 20 с шагом 1 *}
    c1 := SQR(c);
  If c1 = cx Then
    writeln ('a=', a, '', 'b=', b, '', 'c=', c, '-пифагоровы');
  c := c + 1;
End;
  b := b + 1;
  End;
  a := a + 1;
  readln; {* Ждем нажатия Enter *}
  End...