Напишите рекурсивную функцию, которая раскладывает число на простые сомножители.
Пример:
Введите натуральное число: 378
378 = 2*3*3*3*7

Вы меня спасли) Спасибо!

var n:integer;procedure del(x:integer);var d:integer;begind:=2;if(x>1)then begin while x mod d<>0 do d:=d+1; if(x div d >1)then write(d,'*') else write(d); del(x div d)endelse exit;end;beginread(n);write(n, ' = ');if(n<2) then write(n)else del(n);end.