Дано целое число, не меньшее 2. Выведите его наименьший натуральный делитель, отличный от 1 - Free Pascal

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

напишите пожалуйста код и желательно разъясните его... Дано целое число, не меньшее 2. Выведите его наименьший натуральный делитель, отличный от 1. например ввод 15 вывод 3

Решение задачи: «Дано целое число, не меньшее 2. Выведите его наименьший натуральный делитель, отличный от 1»

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

i:=2; while (i*i<=n) and (n mod i<>0) do Inc(i);
if n mod i=0 then WriteLn(i) else WriteLn(n);

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

В данном коде используется простой алгоритм поиска наименьшего натурального делителя числа n, отличного от 1.

В начале программы задается число n и инициализируется переменная i значением 2.
Затем выполняется цикл while, который будет выполняться до тех пор, пока i*i не станет меньше или равным n, и при этом n mod i не будет равно 0.
Внутри цикла i увеличивается на 1 с помощью операции Inc(i).
После цикла проверяется, равно ли n mod i 0. Если это так, то выводится значение i. Если нет, то выводится само число n.