Дано натуральное число n. Получить все простые делители этого числа - Turbo Pascal

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

Дано натуральное число n. Получить все простые делители этого числа.

Решение задачи: «Дано натуральное число n. Получить все простые делители этого числа»

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

Program zadacha854;
var i,b,n,k:integer;
begin
readln(n);
k:=0;
for i:=2 to n do 
if n mod i=0 then begin
for b:=2 to i div 2 do
if i mod b=0 then k:=k+1;
if k=0 then writeln(i);
end;
end.

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

Этот код написан на языке Turbo Pascal и решает задачу, которая заключается в том, чтобы найти все простые делители заданного натурального числа n. Программа начинается с объявления трех переменных: i, b и n. Затем программа считывает значение переменной n с помощью функции readln(). Переменная k инициализируется значением 0. Затем происходит цикл for, который выполняется от 2 до n. Внутри цикла проверяется, делится ли число n на текущее значение переменной i без остатка. Если да, то выполняется дополнительный внутренний цикл for, который проверяет, делится ли число i на текущее значение переменной b без остатка. Если делится, то переменная k увеличивается на 1. Если значение переменной k равно 0, то это означает, что число i является простым делителем числа n, и оно выводится на экран. После завершения внешнего цикла for, программа завершается и выводит на экран все простые делители числа n. Пример: если ввести число 24, то программа выведет на экран все его простые делители: 2, 3, 4, 6, 8, 12.