procedure prvocislo(k:longint);
var i:integer;
begin
i:=1;
if k>1 then repeat
i:=i+1;
until (k mod i) = 0;
if k=i then write(k)
else begin
write(i,' * ');
prvocislo(k div i);
end;
end;
begin
clrscr;
writeln('Zadaj cislo ');
read(n);
write(n,' = ');
if n<0 then write(' - 1 * ');
if n<>0 then prvocislo(abs(n))
else write(' - ');
repeat
until keypressed;
end.