Составить программу, которая определяет совершенное число. в Паскале.

Натуральное число называют совершенным, если оно равно сумме своих простых делителей, не считая его самого.

Т. е. сумма всех чисел, на которые нацело делится число, за исключением самого числа.

К примеру, числа, на которые делится число 6 = > 1,2,3. Их сумма также равна 6 = 1+2+3

Значит число 6 совершенное.

Следующая программа определяет, совершенное число или нет.

var

sum: integer;

d: integer;

i: integer;

begin

sum: = 0;

write ('Введите целое число: ');

readln (i);

if i 1 then

begin

for d:=1 to (i div 2) do

begin

if i mod d = 0 then sum: = sum + d;

end;

end;

if i = sum then writeln ('числo ', i, 'совершенное')

else writeln ('числo ', i, 'НЕ совершенное');

end.