Разложить число на простые множители на Паскале.

Простые множители/делители числа на языке Паскаль находятся посредством последовательного деления заданного числа на числа от 2 до половины заданного числа. Если остаток от такого деления равен 0, значит делитель можно добавить в искомый результат.

Решение задачи, как разложить число на простые числа.

program ex38; { }
uses crt;
var n, i,j,f: integer;
begin
clrscr;
write('Введите натуральное число n= ');
readln(n);
f:=0;
i:=2;
j:=n;
write(n:6, '= 1');
while (i<=n div 2) do
begin
if j mod i =0 then
begin
f:=1;
while j mod i =0 do
begin
write('*', i);
j:=j div i
end;
end;
i:=i+1;
end;
if f=0 then writeln ('*', n) else writeln;
readln;
end.