2.16.pas

   1 PROGRAM ej0216;\r
   2 \r
   3 VAR divi,       { divisor                     }\r
   4     n: integer; { valor ingesado para dividir }\r
   5 \r
   6 BEGIN\r
   7      divi := 2;\r
   8      write('Escriba un numero para descomponer en numeros primos: ');\r
   9      readln(n);\r
  10      REPEAT\r
  11            IF (n MOD divi) = 0 THEN BEGIN\r
  12                                          writeln(divi: 3); { writeln ('n = ',n);{ para debug }\r
  13                                          n := n DIV divi;\r
  14                                     END\r
  15                                ELSE divi := divi + 1;\r
  16      UNTIL n = 1;\r
  17 END.\r
  18 \r