{* Задача 413 *}

Unit ZADACH413;
Interface
Implementation
Begin
 writeln('
19. Дано натуральное число N. Разложить его на простые множители и вывести результат в виде: например: 12 = 1*2*2*3. ');
End.

Program zd19;

Uses zadach413.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  i : integer;
  j : integer;
  n : integer;
  f : integer;
Begin
  Repeat       write('Введите натуральное число N');
    readln(n);
  Until n > 0;
  write(n : 6, '=1');
  f := 0;
  j := n;
  For i := 2 To n Div 2 Do {* Цикл для i => [2 .. n] *}
  Begin
    If j Mod i = 0 Then
    Begin
      f := 1;
      While j Mod i = 0 Do
      Begin
        write('*', i);
        j := j Div i;
      End;
      
    End;
    
  End;
  If f = 0 Then
    writeln('*', n)
  Else writeln
End.