Язык Паскаль. Является ли число простым?

Задача. Дано натуральное число N. Верно ли, что данное число простое?

Простое число - это натуральное число, имеющее ровно 2 делителя (единицу и само число).

Для ответа на вопрос задачи будем перебирать натуральные числа i в диапазоне от 1 до N, если число i делит N без остатка, будем увеличивать значение переменной k (счетчик делителей). Если значение k = 2, то число простое, иначе не простое.

Программа решения на языке Паскаль

var i,n,k:integer;

begin

   writeln('Введите натуральное число N ');

   readln(n);

   k:=0;

   for i:=1 to n do

    if n mod i=0 then k:=k+1;

   if k=2 then writeln('число простое') else writeln('число не простое');

end.

Результат запуска программы

Похожим алгоритмом можно искать совершенные числа, такие как: 6, 28, 496..

Совершенное число - натуральное число, равное сумме своих делителей, не считая само число.

6 = 1 + 2 + 3

28 = 1 + 2 + 4 + 7 + 14

Напишите программу и найдите 4, 5, 6-ое совершенные числа.