Составить программу нахождения простых делителей числа N

var
  m,n,i,j:integer;
  a:array[1..100]of integer;
begin
  write('Enter N:');
  readln(n);
  m:=0;
  for i:=2 to n do
    begin
      if n mod i=0then
        begin
          if m>0 then
            begin
              j:=m;
              while(j>0)and(i mod a[j]<>0)do dec(j);
            end;
          if j=0 then
            begin
              inc(m);
              a[m]:=i;
            end;
        end;
    end;
  j:=1;
  while j<=m do
    begin
      write(a[j]:5);
      inc(j);
    end
end.

var n: Longint; i: Integer;
begin
  repeat Write('N: '); ReadLn(n); until n>0;
  if n mod 2=0 then begin
    repeat Write(' 2'); n:=n div 2; until n mod 2<>0; WriteLn;
  end;
  i:=3;
  while i<=n do begin
    if n mod i=0 then begin
      repeat Write(' ',i); n:=n div i; until n mod i<>0; WriteLn;
    end; Inc(i,2);
  end;
end.

var n: Longint; i: Integer;
begin
  repeat Write('N: '); ReadLn(n); until n>0;
  while n mod 2=0 do begin Write(' 2'); n:=n div 2; end;
  i:=3;
  while i<=n do begin
    while n mod i=0 do begin Write(' ',i); n:=n div i; end;
    Inc(i,2);
  end; WriteLn;
end.