phân tích 1 số thành thừa số nguyên tố. dạng xử lí số

hãy phân tích số nguyên dương n thành thừa số nguyên tố.

Code:: readln(n);{ doc so nhap vao}
dung:=0;{kieu boolean}

repeat
if n mod 2=0 then
begin
writeln(2);
n:=n mod 2;
end
else dung:=1;
until dung;
dung:=0;
repeat
if n mod 3=0 then
begin
writeln(3);
n:=n mod 3;
end
else dung:=1;
until dung;

{ lam tuong tu voi 5 neu sieng thi lam voi 7 9 va 11....};
{ dieu kien dung la khi n la mot so nguyen to}
{nhung minh nghi toi 5 la du roi vi toi 5 so da rat lon va it khi gap 7 tro len}

vay la xong y tuong ve thua so nguyen to roi do

ý tưởng của bạn cũng được. tuy nhiên việc xét, và đem chia cho từng số 3,5,7,.. là rất mất thời gian. nếu như đi thi đề bài cho ra số lớn thì viết chương trình như thế thì rớt chắc nhỉ?
code cho bài này như sau.

Code:: program Phan_tich_Thanh_so_nguyen_to;
uses crt;
var so,i:integer;

begin
clrscr;
write('Nhap mot so: ');
readln(so);
repeat
i:=2;
while (so mod i <>0) and (i
write(i,' ');
so:=so div i;
until so=1;
readln
end.