EJERCICIOS FREE PASCAL

ASCA══════════════════════════════════╗
═════════════════════════════════╗
_+_
_(__(_
_(______(_
(__________(
__________________
\ /
\_______________/


program holamundo;
uses crt;
Begin
clrscr;
writeln ('Hola Mundo');
readkey;
end.


program nuevo;
uses crt;
var num,d:integer;
Begin
clrscr;
writeln ('Ingrese un numero '); readln (num);
d:=2;
while num <> 1 do
Begin
if num mod d = 0 then
Begin
writeln (d);
num:=num div d;
End;
End;
readkey;
end.

Explicación.

Nota: mod Módulo (el resto de la división entera). div División entera.

writeln ('Ingrese un numero '); readln (num); {Ingresamos un número y lo leemos}

d:=2;{Le asignamos un valor a la variable d, 2}

while num <> 1 do{Mientras el numero ingresado sea distinto de 1 hacer}

Begin{Comienza el while}

if num mod d = 0 then{Si el numero dividio d es igual a 0 entonces}

Begin{Comienza el IF}

writeln (d);{Escribimos d}

num:=num div d;{El numero sera igual al numero dividido d (d equivale a 2)}

End;{Fin del IF}

End;{Fin del While}