program Trololol;

var
   number: integer;
   i:   integer;
   counter: integer;

begin
    number := 12;
    counter := 0;
    write(number, ' = ');

   for i := 2  to number do
   begin
       if (i > number) then break;
       while (number mod i = 0) do
       begin
          //writeln('value of number: ', number);
          number := number div i;
          counter := counter + 1;
       end;
       write(i, '^', counter, ' ');
       counter := 0;
   end;
   writeln();
end.