Разложение натурального числа Опции

[Tribunal]

Задание:разложить натуральное число N на простые множители

я сделала программу,но она в конце выводит совсем ненужный 0...
подскажите,пожалуйста,как этого избежать?

var
  mn: array [1..100] of integer;
  i,k,n,kol:integer;

begin

  write('Vvedite naturalnoe chislo n=');readln(n);
  writeln('Razlojim naturalnoe chislo n na prostie mnojiteli:');

  i:=1;k:=3;
  repeat
   if ((k mod 2)<>0) and ((n mod k) = 0) then begin
                         n:=trunc(n/k);
                         mn[i]:=k;
                         write(mn[i],' ');
                         inc(i);
                         end
   else inc(k);
  until n=1;
  kol:=i;
  writeln;

  i:=0;
  while i<kol do
   begin
     inc(i);
     repeat
      k:=1;
      if (i<kol) and (mn[i]=mn[i+1]) then begin
                                          inc(k);
                                          inc(i);
                                          end;
     until (i<=kol) or (mn[i]<>mn[i+1]) ;
     write(mn[i],'^',k,' ');
   end;
  readln;
end.

[Tribunal]

дело в том,что я хочу вывести результат в виде
простых сомножителей с соотвествующими степенями...
собственно в выводе этого результата и состоит проблема...
посмотри,пожалуйста...

[volvo]

собственно в выводе этого результата и состоит проблема...

Так:

var
  mn: array [1..100] of integer;
  i,k,n:integer;

begin

  write('Vvedite naturalnoe chislo n=');readln(n);
  writeln('Razlojim naturalnoe chislo n na prostie mnojiteli:');

  k:=2;
  repeat

   if (n mod k) = 0 then begin
     n := n div k;
     inc(mn[k]);
     write(k, ' ');
   end
   else inc(k, 2 - byte(k = 2));

  until n=1;

  writeln;

  i := 1;
  while i <= k do begin { <--- Изменил !!! }
    if mn[i] > 0 then write(i, '^', mn[i], ' ');
    inc(i);
  end;
  readln;
end.

?

Сообщение отредактировано: volvo - 3.11.2006 20:32