Определить, является ли заданное натуральное число совершенным, то есть равным сумме...

Question

Определить, является ли заданное натуральное число совершенным, то есть равным сумме своих положительных делителей кроме самого этого числа

Помогите пожалуйста

Answer 1

//Pascal
var
  i, n, sum: integer;
begin
  write('Введите число: ');readln(n);
  sum := 0;
  for i := 1 to n div 2 do
    if n mod i = 0 then
      sum := sum + i;  
if n = sum then
  writeln('Число ',n,' совершенное')
else
  writeln('Число ',n,' не совершенное');
readln;
end.

Пример:
Введите число: 28
Число 28 совершенное

Введите число: 21
Число 21 не совершенное