2.10.pas

   1 program Cifras_4;\r
   2 \r
   3 var\r
   4    cant, max, min, max_veces, min_veces, i: word;\r
   5    numero: string;\r
   6 \r
   7 begin\r
   8 \r
   9 max := 0;        (********************************)\r
  10 min := 9999;     (* Inicializo algunas variables *)\r
  11 max_veces := 0;  (********************************)\r
  12 min_veces := 0;\r
  13 \r
  14      write('Qu\82 cantidad de n£meros desea ingresar? ');\r
  15      readln(cant);\r
  16      for i := 1 to cant do\r
  17      begin\r
  18           write('Ingrese el n£mero ', cant, '(4 cifras, natural): ');\r
  19           readln(actual);\r
  20           if actual > 9999 then writeln('El n£mero tiene m s de 4 cifras\r
  21 \r