QLinkVN trả lời câu hỏi của bạn như sau:
Program QLinkVN;
var n,i: integer;
Begin
clrscr;
Write('Nhap so: '); Readln(n);
i:=2;
Write('Ket qua phan tich:'); Write(n,'=');
While n>1 do
Begin if n mod i = 0 then
Begin Write(i,'.');
n:= n div i End else i:=i+1;
End;
Readln;
End.