Prime Factor

{Phan tich mot so ra thua so nguyen to}
program PT_TSNT;
uses crt;
var x,i:integer;
begin
 clrscr;
 Write('Nhap x: ');readln(x);  i:=2;
 Write(x,'= ');
 While x>1 do
  begin
   If x mod i <> 0 then Repeat inc(i) Until x mod i=0;
   Write(i); x:=x div i;
   If x>1 then write('x');
  end;
  readln
  end.