test/temp.pas

   1                 {for i := 1 to veces do\r
   2                    begin\r
   3 \r
   4                         writeln( ar, 'ciclo for i := 1 to veces do. i: ', i );\r
   5                         }\r
   6 \r
   7 \r
   8                                 {if veces1 = 1 then\r
   9                                    begin\r
  10                                         ape := ap + letra1 + GetRNDApellido( 5, 2 );\r
  11                                         dni := dni + random( 50000 ) + 1;\r
  12                                         writeln( ar, ap );\r
  13                                         writeln( ar, dni );\r
  14                                         writeln( ar );\r
  15                                         writeln( 'En ape(completo): ', ape,' ', dni );\r
  16                                         delay( 500 );\r
  17                                    end\r
  18                                 else\r
  19                                    begin}\r
  20 \r
  21                                 {if veces1 = 1 then\r
  22                                    begin\r
  23                                         ape := ap + letra1 + GetRNDApellido( 5, 2 );\r
  24                                         dni := dni + random( 50000 ) + 1;\r
  25                                         writeln( ar, ap );\r
  26                                         writeln( ar, dni );\r
  27                                         writeln( ar );\r
  28                                         writeln( 'En ape(completo): ', ape,' ', dni );\r
  29                                         delay( 500 );\r
  30                                    end\r
  31                                 else\r
  32                                    begin}\r
  33 \r
  34 \r
  35          if cant = 1000 then begin\r
  36                                    char1 := 38;\r
  37                                    mil := true;\r
  38                               end\r
  39                          else char1 := 34;\r
  40          char2 := char1 + 1;\r