{Escribir un programa en Pascal que encripte una cadena de caracteres sumando 2
al código ASCII de cada uno de sus caracteres.}
PROGRAM EJERC106;
USES CRT;
CONST cad_orig : STRING = 'Archipielago de Cabo Verde';
VAR i, nc : INTEGER;
BEGIN
CLRSCR;
WRITELN (cad_orig);
nc := LENGTH (cad_orig);
FOR i := 1 TO nc DO
cad_orig [i] := CHR (ORD (cad_orig [i]) + 2);
WRITELN (cad_orig);
END.