Нужен код этой задачи в паскале

 program PrimeFactorization; 
var 
  n, i: integer; 
begin 
  write('Введите натуральное число: '); 
  readln(n); 
  i := 2; 
  while n <> 1 do 
  begin 
    while n mod i = 0 do 
    begin 
      write(i, ' '); 
      n := n div i; 
    end; 
    i := i + 1; 
  end; 
  writeln; 
end.