Вывести представление целого числа N в виде произведения простых чисел.
Ограничения: 2 <= N <= 231 - 1.
Ввод: В первой строке находится единственное число N.
Вывод: Выводится список чисел в порядке неубывания, разделённых знаком "*".
Примеры
Ввод 1    Ввод 2
5         30
Вывод 1   Вывод 2
5         2*3*5

Код:
var d,x:longint;
begin
readln(x);
d:=2;
while int64(d)*d<=x do
if x mod d =0 then begin
                   x:=x div d;
                   write(d,'*');
                   end
              else if d=2 then d:=3
                          else d:=d+2;
write(x);
end.