procedure Task1;

var
    num: Integer;
   i: Integer;
begin
    Writeln('Задача: Разложить число на простые множители');
   Write('Введите число... ');
   Readln(num);
   Write(num, ' = 1');
   i := 2;
   while (num <> 1) do
   begin
    if (num mod i) = 0 then
        begin
        num := num div i;
         Write('*', i);
    end
      else
        if i = 2 then
            i := 3
        else
            Inc(i,2);
   end;
   Writeln;
end;