Восстановите программу разложения натурального числа на простые множители.

• var N, p: integer;
• begin
• readln\(N\);
  p := 2;
• while N <> 1 do begin
• while N mod p = 0 do begin
• write\(p, ' '\);
• N := N div p; end;
• p := p + 1;
• end;
• end.