c:/gdsf/web/fuentes_pascal/manipula

{Escribir un programa en Pascal que cuente las mayúsculas de una cadena de
caracteres.}
PROGRAM EJERC104;
USES CRT;
CONST cad_orig : STRING = 'Archipielago de Cabo Verde';
VAR i, nc, n_may : INTEGER;
BEGIN
CLRSCR;
nc := LENGTH (cad_orig);
n_may := 0;
FOR i := 1 TO nc DO
      BEGIN
      IF (ORD (cad_orig [i]) >= 65) AND (ORD (cad_orig [i]) <= 90) THEN
         n_may := n_may + 1;
      END;
WRITELN (cad_orig);
WRITELN ('MAYUSCULAS: ', n_may);
END.