Pascal/Turbo Pascal - Trabajo Descomposicion de Factores primos

PROGRAM DescompFactoresPrimos;

    var

	Factor, Multiplicidad, nn, Numero : integer;

    BEGIN

	 WriteLn;

	 Write( ' Escriba el numero entero: ');

	 ReadLn(Numero);

	 nn := Numero;

         While ( nn > 1 ) do

	 begin

	   Factor := 2;

	   Multiplicidad := 1;

           While(nn MOD Factor <> 0) do

	   Factor := Factor + 1;

	   nn := nn div Factor;

	   If(Multiplicidad<2)

	    Then(writeln('  ',Factor))

	    Else(writeln('  ',Factor,'^',Multiplicidad));

	  end;

	 WriteLn;

	 WriteLn('  Gracias');

    end.

{Mira esto}

program descomfactprimos;

var

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

fin : boolean;

begin

writeln;

s := 0;

write(' Entre Numeri Entero : ');

readln(n);

nn := n;

r := 0;

writeln(' ',n);

while ( nn > 1 ) do

begin

di := 2;

fin := true;

while ( nn MOD di <> 0 ) do

inc(di);

if (r <> di) and (r > 0) then

begin

write(' ',r,'^',s);

s := 0;

r := di;

fin := false;

end

else

r := di;

s := s + 1;

nn := nn div di;

end;

if fin = false then

write(' ',r,'^',s);

writeln;

writeln;

writeln(' Pulse Enter');

readln;

end.