Напишите рекурсивную функцию, которая раскладывает число на обыкновенные сомножители.

Var n:integer;

procedure del(x:integer);
var d:integer;
begin
d:=2;
if(xgt;1)then begin
while x mod dlt;gt;0 do d:=d+1;
if(x div d gt;1)then write(d,'*')
else write(d);
del(x div d)
end
else exit;
end;

begin
read(n);
write(n, ' = ');
if(nlt;2) then write(n)
else del(n);
end.