Напишите рекурсивную функцию, которая

раскладывает число на простые сомножители.

Пример:

Введите натуральное число:

378

378 = 2*3*3*3*7

Var n : integer;

function factorize (n : integer) : integer;

var d : integer;

begin

d : = 2;

while d * d < = n do begin

if n mod d = 0 then begin

write (d, '*');

factorize (n div d);

exit;

end;

d + = 1;

end;

if n > 1 then write (n);

end;

begin

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

readln (n);

factorize (n);

end.