Напишите программу, которая вводит натуральное число N и определяет является ли число N совершенным. Если можно с подробным или кратким объяснением

По определению совершенным числом называется то число, которое равно сумме своих делителей отличных от самого числа. Значит,чтобы решить задачу нам нужно найти сумму делителей числа и проверить равна ли она самому числу. var   sum, N, i:integer; begin   readln(N);//читаем число с клавиатуры  //Проверяем делатели до N-1, т.к. нам нужны делители не равные //самому числу   for i:=1 to N-1 do     if N mod i = 0 then//Если i является делителем N, то...       sum:=sum+i;// ...прибавляем его к сумме делителей // Проверяем равна ли сумма делителей числа самому числу.   if sum = N then     writeln('Число совершенное')   else        writeln('Число не совершенное'); end.

Число считается совершенным, если оно равно сумме своих делителей, исключая себя самого. Для проверки, является ли число N совершенным, полагаем будущую сумму делителей равной 1 (на единицу число всегда делится) и последовательно делим N на числа, начиная от 2 и заканчивая N/2. Если число делится без остатка на очередной делитель, добавляем его к сумме. После завершения цикла делений сравниваем сумму с N и в случае равенства объявляем число N совершенным. В начале алгоритма проверяем, чтобы N было больше 1, в противном случае сразу объявляем число не совершенным. var   i,n,s:longint; begin   Write('Введите натуральное число: '); Read(n);   if n=1 then Writeln('Число 1 не является совершенным')   else begin     s:=1;     for i:=2 to (n div 2) do       if (n mod i)=0 then s:=s+i;     if s=n then Writeln('Число является совершенным')     else Writeln('Число не является совершенным')   end end. Тестовое решение: Введите натуральное число: 33550336 Число является совершенным Введите натуральное число: 543252 Число не является совершенным