program felbontas;
uses
 crt;

 function bizotnsagosIntegerReadln(var szam:integer):boolean;
   var
     s:string;
     hibakod:integer;
     szam2:longint;
   begin
     readln(s);
     val(s,szam2,hibakod);
     szam:=szam2;
     bizotnsagosIntegerReadln:=(szam=szam2)and(hibakod=0);
   end;

var
  szam,oszto:integer;
begin
  clrscr;
  writeln('Kerem a felbontando szamot!');
  if not bizotnsagosIntegerReadln(szam) then
    begin
      writeln('Hibas bemenet:tartomanyon kivuli szamertek vagy nem szam.');
      writeln('Kilepeshez nyomj egy gombot!');
      readkey;
      halt(1);
    end;


 {erdemi kod ami a felbontasert felelos}
  writeln(szam,' primtenyezok szorzatara bontasa:');
  if szam>1 then
    begin
      repeat

        oszto:=1;{szam legkisebb 1-nel nagyobb osztojanak keresese}
        repeat
          inc(oszto);
        until szam mod oszto=0;{szam legkisebb 1-nel nagyobb osztojanak keresese kod vege}

        write(oszto);
        if szam>oszto then{ha a szam nagyobb mint az oszto akkor *-ot kiirjuk, lesz meg folytatas}
          write('*') else
          writeln();
        szam:=szam div oszto;

      until szam=1;
    end else
    writeln('2-nel kisebb szam nem lehet primtenyezokre felbontani.');
   {erdemi kod ami a felbontasert felelos  kod vege}


   writeln('Kilepeshez nyomj egy gombot!');
   readkey;
end.