Уменьшить время выполнения программы

var n,i:integer;
begin
read(n);
for i:=1 to n do 
if n mod i = 0 then 
write(i,' ');
end.

var n, i: Integer;
begin
  Read(n);
  for i:=1 to Trunc(Sqrt(n))-1 do if n mod i = 0 then Write(' ',i,' ',n div i);
  i:=Trunc(Sqrt(n)); if Sqr(i)=n then Write(' ',i);
end.

var q, n: Integer;
procedure p(t: Integer);
begin
  while (t<q) and (n mod t<>0) do Inc(t);
  if n mod t=0 then begin
    Write(' ',t);
    if t<q then p(t+1);
    if (Sqr(t)<>n) then Write(' ',n div t);
  end;
end;
begin
  Read(n); q:=Trunc(SqRt(n)); p(1);
end.

var n, i: Integer;
begin
  Read(n);
  for i:=2 to Trunc(Sqrt(n))-1 do if n mod i = 0 then Write(' ',i,' ',n div i);
  i:=Trunc(Sqrt(n)); if Sqr(i)=n then Write(' ',i);
end.

var q, n: Integer;
procedure p(t: Integer);
begin
  while (t<q) and (n mod t<>0) do Inc(t);
  if n mod t=0 then begin
    Write(' ',t);
    if t<q then p(t+1);
    if (Sqr(t)<>n) then Write(' ',n div t);
  end;
end;
begin
  Read(n); q:=Trunc(SqRt(n)); p(2);
end.

function IsPrime(n: Longint): Boolean;
var i, q, d: Word;
begin
  if (n>=5) and ((n-1) mod 6=0) or ((n+1) mod 6=0) then begin
    i:=5; d:=2; q:=Trunc(SqRt(n));
    IsPrime:=False;
    while i<=q do begin
      if n mod i=0 then Exit;
      Inc(i,d); d:=d xor 6;
    end;
    IsPrime:=True;
  end else
    IsPrime:=(n=2) or (n=3);
end;
var q: Integer; n: Longint;
procedure p(t: Integer);
begin
  while (t<q) and (n mod t<>0) do Inc(t);
  if n mod t=0 then begin
    if IsPrime(t) then Write(' ',t);
    if t<q then p(t+1+Ord(Odd(t)));
    t:=n div t;
    if (Sqr(Longint(t))<>n) and IsPrime(t) then Write(' ',t);
  end;
end;
begin
  Read(n); q:=Trunc(SqRt(n)); p(2);
  if IsPrime(n) then Write(' ',n);
end.