Натуральное число M называется совершенным, если оно равно сумме всех своих делителей, включая единицу, но исключая себя, является ли число м совершенным? Напиши программу в паскале циклов while или repeat

Var

M, S, d:longint;

Begin

Write ('M = '); ReadLn (M);

d:=M div 2;

While d > 0 do

Begin

if M mod d = 0 then S:=S+d;

d:=d-1

End;

if M = S then WriteLn ('Это число - совершенное')

else WriteLn ('Данное число не является совершенным')

End.