Phân tích ra thừa số nguyên tố: program nguyento; var i,n:integer; BEGIN write('n:='); readln(n); Write(n,'='); while n>1 do begin i:=2; while (n mod i) <>0 do inc(i); Write(i); n:= n div i; if n>1 then write('*'); end; readln; END.