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

Вариант без рекурсии - как просил позжеfunction factorization ( numeric: integer ): integer;var d: integer;beginwrite(numeric, ' = 1');d := 2;while numeric > 1 dobeginif numeric mod d = 0 thenbeginwrite (' * ', d);numeric := numeric div d;endelse inc(d);end;end;var x: integer;beginwrite('Введите число: ');readln(x);factorization(x);end.