Pascal【入门】任意输入一正整数N，要求把它拆成质因子的乘积。

题目描述：

任意输入一正整数N，求出它的所有质因子。如：10＝（2*5）；20=（2*2*5）。

输入：

输入只有一行，包括1个整数。

输出：

输出只有一行，各质因子以一个空格隔开。

样例输入：

36

样例输出：

2 2 3 3

代码实现：

var n,k,i:longint;
begin
         readln(n);
         k:=n;
         while k>1 do
             for i:=2 to n do
                 if k mod i=0 then 
                 begin
                     write(i,' ');
                     k:=k div i;
                     break;
                 end;
end.