ПОМОГИТЕ ПОЖАЛУЙСТА/ИВТ 9 КЛАСС ДЕЛФИ / ПАСКАЛЬ/ 50 БАЛЛОВ Напишите программу, которая по данному натуральному числу n выводит все его простые натуральные делители с учетом кратности. Время работы программы должно быть пропорционально корню из n. Входные данные Программа получает на вход одно число n

Var
 n,d,k:int64;
begin
 read(n);
 d := 2; k := 4;
 while k   begin
  while n mod d = 0 do
    begin
    write(d, );
    n := n div d;
    end;
  k := k + 2*d + 1;
  d := d + 1;
  end;
 if n > 1 then write(n);
end.