{* Сумма квадратов четырех чисел *}

Unit Z_NUMBER7;
Interface
Implementation
Begin
 writeln('Сумма квадратов четырех чисел');
End.

Program z_number;

Uses z_number7.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Необходимые переменные *}
  max : real;
  num : real;
  sum : real;
  i   : byte;
Begin
  clrscr; {* Стираем всё с экрана *}
  sum := 0; {Цикл ввода чисел}
  For i := 1 To 5 Do {* Увеличиваем i от 1 до 5 с шагом 1 *}
  Begin
    write('Введите ', i, '-е число');
    readln(num); {Ищется максимальное число и сумма квадратов остальных чисел}
    If i = 1 Then
      max := num
    Else Begin
      If num > max Then
      Begin
        sum := sum + sqr(max);
        max := num;
      End;
      Else sum := sum + sqr(num);
  End;
  
End;
  writeln; {Проверка, равно ли максимальное число сумме квадратов  остальных чисел, и вывод соответствующих сообщений}
If max = sum Then
  writeln('Число равное сумме квадратов     четырех остальных чисел ', max)
Else writeln('Числа равного сумме квадратов   четырех остальных чисел нет'); {/Проверка, равно ли максимальное число сумме квадратов   остальных чисел, и вывод соответствующих сообщений}
  readln; {* Ждем подтверждения пользователя *}
End.....