Напечатать на экране True, если введенное натуральное число является совершенным - Pascal ABC

Формулировка задачи:

Напечатать на экране True, если введенное натуральное число является совершенным, т.е. равным сумме всех своих положительных делителей, кроме самого этого числа (например, число 6 совершенно: 6=1+2+3).

Решение задачи: «Напечатать на экране True, если введенное натуральное число является совершенным»

Листинг программы

program z1708040;
 var i,s,n:longint;
begin
 write('Введите натуральное число:');
 readln(n);
 s:=0;
 for i:=1 to n div 2 do
  if n mod i=0
   then s:=s+i;
 if s=n
  then writeln(s=n)
end.

Объяснение кода листинга программы

В программе объявлены три переменные: i, s и n, которые являются целочисленными типами данных.
Строка Введите натуральное число: выводится на экран с помощью функции write, а функция readln используется для чтения введенного пользователем значения переменной n.
Переменная s инициализируется значением 0.
Затем происходит цикл for, который выполняется от 1 до n (включительно) и проверяет, делится ли число n на i без остатка. Если это так, то переменная s увеличивается на i.
После завершения цикла проверяется, равно ли значение переменной s количеству чисел i, на которые делится число n. Если это так, то выводится сообщение s=n.
Конец программы.