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

Натуральное число называют совершенным, если оно равно сумме своих простых делителей, не считая его самого.Т.е. сумма всех чисел, на которые нацело делится число, за исключением самого числа.К примеру, числа, на которые делится число 6 => 1,2,3. Их сумма также равна 6 = 1+2+3Значит число 6 совершенное.Следующая программа определяет, совершенное число или нет.varsum: 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.