{ Bài 11: Viết chương trình cho phép nhập vào một số nguyên. Phân tích số đó ra thừa số nguyên tố. }
program phantich_so_ngto;
uses crt;
var n,i,d,r:longint;
begin
clrscr;
writeln;
write('Nhap so nguyen can phan tich: ');readln(n);
write(n,'=');
i:=2;
repeat
r:=n mod i;
if r=0 then
begin
n:=n div i;
if n<>1 then write(i,'*') else write(i);
end
else i:=i+1;
until n=1;
readln
end.