var rozklad:string;
var n,jaky,cislo,i:integer;
begin;
textbackground(yellow);
textcolor(red);
clrscr;
writeln;
write(' Zadejte cislo ktere chcete rozlozit (1-32767): ');
i:=1;
read(cislo);
n:=2;
rozklad:='';
jaky:=0;
writeln;
textcolor(white);
write(' ',cislo,'=');
while cislo<>1 do
begin
while ((cislo mod n)=0) do
begin
if not(i=1) then write('*');
i:=i+1;
cislo:=cislo div n;
write(n,'');
end;
n:=n+1;
end;
while not(keypressed) do;
end.