Pascal/Turbo Pascal - Ejercicio Pascal que resuelve la descomposición en factores primos de un número dado

{Espero esto te ayude a seguir }

 program descomfactprimos;

  uses

     crt;

  var

    s, r, numero : integer;

    primos : array[0..99] of integer;

    procedure entradanumero(var n : integer);

    begin

       writeln;

       write('   Entre Numeri Entero : ');

       readln(n);

    end;

    procedure factoresprimos(nu : integer; var t : array of integer);

    var

       nn, di : integer;

    begin

      nn := nu;

      while ( nn > 1 ) do

      begin

         di := 2;

       while ( nn MOD di <> 0 ) do

       inc(di);

       t[r] := di;

       r := r + 1;

       nn := nn div di;

     end;

    end;

    begin

      clrscr;

      entradanumero(numero);

      factoresprimos(numero,primos);

      writeln('descomposicion en factores primos de un numero dado es');

      writeln;

      for s := 0 to r - 1 do

      write('  ',primos[s]);

      readkey;

    end.

{programa que descompone un n£mero en sus factores primos}

Uses CRT;

Var

  resto, n,d : Longint;

begin

  writeln('Introduzca n: ');

  readln(n);

  d:=2;

  while n>1 do

    begin

  resto:=n mod d;

  if resto=0 then

    begin

    writeln(d);

    n:=n div d

    end

  else

   d:=d+1;

  end;

 readln;

end.

{Mira si esto te ayuda mas }

program descomfactprimos;

  uses

     crt;

  var

    n, nn, di, s, r, numero : integer;

  begin

       clrscr;

       writeln;

       write('   Entre Numeri Entero : ');

       readln(n);

       nn := n;

      while ( nn > 1 ) do

      begin

         di := 2;

       while ( nn MOD di <> 0 ) do

       inc(di);

       write('  ',di);

       r := r + 1;

       nn := nn div di;

     end;

     writeln;

     writeln('   Pulse Una Tecla');

     readkey;

  end.

{Mira esto}

 program descomfactprimos;

  uses

     crt;

  var

    n, nn, di, s, r, numero : integer;

    cadena : string;

  begin

       clrscr;

       writeln;

       s := 1;

       write('   Entre Numeri Entero : ');

       readln(n);

       nn := n;

      while ( nn > 1 ) do

      begin

         di := 2;

       while ( nn MOD di <> 0 ) do

       inc(di);

       cadena[s] := chr(di + 48);

       cadena[0] := chr(s);

       s := s + 1;

       nn := nn div di;

     end;

     nn := 0;

     n := 1;

     numero := ord(cadena[1]) - 48;

     for r := 2 to s  do

     begin

     nn := ord(cadena[r]) - 48;

     if numero <> nn then

     begin

        write('     ',numero,'^',n);

        n := 1;

        numero := nn;

     end

  else

     begin

     n := n + 1;

     numero := nn;

     end;

    end;

     writeln;

     writeln('   Pulse Una Tecla');

     readkey;

  end.