{* Задача 270 *}

Unit ZADACH270;
Interface
Implementation
Begin
 writeln('Составить программу, которая находит все совершенные числа в пределах от 2 до 10000. ');
End.

Program zadach270;

Uses zadach270.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  i  : integer;
  j  : integer;
  k  : integer;
  s  : integer;
  s1 : integer;
Begin
  clrscr; {* Очистка экрана *}
  For i := 2 To 10000 Do {* Увеличиваем i от 2 до 10000 с шагом 1 *}
  Begin
    s := 0;
    For j := 1 To i - 1 Do {* Цикл для j => [1 .. i] *}
    Begin
      If i Mod j = 0 Then
      Begin
        s := s + j;
      End;
      
    End;
    If (s = i) Then
    Begin
      writeln ('Число ', i, ' совершенное ');
    End;
    
  End;
  readln; {* Ждем нажатия Enter *}
End.