Разложение числа на простые множители

[artem_MG]

Здравсвуйте уважаемые программисты!
Помогите пожалуйста написать программу, которая раскладывает заданное натуральное число N на простые множители, указав кратность каждого из них.
Заранее ОГРОМНОЕ СПАСИБО.

[Kostia]

var
   numb, powers: array [1..100] of integer;
   c, n, n1, i: integer;
begin
   readln(c);
   n:= 1;
   n1:= 0;
   while c <> 1 do
   begin
      i:= 2;
      while c mod i <> 0 do
        Inc(i);
      Inc(n1);
      if n1 = 1 then
      begin
         numb[n]:= i;
         powers[n]:= 1;
      end
      else if numb[n] = i then Inc(powers[n])
      else
      begin
         Inc(n);
         numb[n]:= i;
         powers[n]:= 1;
      end;
      c:= c div i;
   end;
   writeln(n);
   write('num = ');
   for i:= 1 to n do
   begin
     write(numb[i], ' ^ ', powers[i]);
     if i <> n then write(' * ');
   end;
   writeln;
   readln();
end.

[artem_MG]

гигантское тебе СПАСИБО!!!

[artem_MG]

есть еще такая прога:
Для заданного натурального n получить таблицу значений функции для x принадлеж. [a,b]
f(x)=(1/2-cos|x|)*(2/3-cos(в квадрате)|x|)...(n/n+1-cos(в степени n)|x|)