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

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

Ряд чисел Фибоначчи задается следующим образом: первые два числа равны 1(F1=F2=1), а каждое следующее равно сумме двух предыдущих: Fn=Fn-1+Fn-2. Напишите программу, которая вводит натуральное число N и определяет, является ли число N совершенным.

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

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

program fib;
var a, b, f, n, i, x: integer;
 
begin
writeln('Vvedite poryzdkoviy nomer chisla');
readln(n);
a :=1; b := 1;
for i := 3 to n do begin
    f := a + b;
    a := b;
    b := f;
    end;
writeln('chislo s nomerom ',i,' = ',f);
    x := 0;
for i := 1 to (f div 2) do
    if ((f mod i) = 0) then x := x + i;
    
If (x = f) then writeln('Chislo sovershennoe')
else writeln('Chislo nesovershennoe');
end.

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

В программе объявлены переменные a, b, f, n, i, x, которые представляют собой целочисленные типы данных.
Программа запрашивает у пользователя ввод натурального числа N и сохраняет его в переменной n.
Переменные a и b инициализируются единицами. Это начальные значения для переменных a и b в цикле.
Запускается цикл for, который выполняется от 3 до n. На каждой итерации цикла переменная f вычисляется как сумма переменных a и b. Затем значения a и b обновляются, а значение переменной b становится новым значением a. Это продолжается до тех пор, пока n не будет достигнуто.
После завершения цикла выводится сообщение, содержащее номер и значение переменной f.
Затем переменная x инициализируется нулем. Это начальное значение для переменной x в цикле.
Запускается внутренний цикл for, который выполняется от 1 до (f div 2). Если остаток от деления f на i равен нулю, то значение i добавляется к переменной x. Это продолжается до тех пор, пока x не станет равным f.
По завершении внутреннего цикла выводится сообщение, указывающее, является ли число f совершенным или нет.
Программа завершается.