PROGRAM
EJER69
;
USES
CRT
;
VAR
i
:
INTEGER
;
VAR
cad1
:
STRING
;
BEGIN
i
:=
0
;
cad1
:=
'Lenguaje Pascal'
;
CLRSCR
;
WRITELN
(
cad1
);
WHILE
i
<=
LENGTH
(
cad1
)
DO
BEGIN
cad1
[
i
]
:=
UPCASE
(
cad1
[
i
]);
i
:=
i
+
1
;
END
;
WRITELN
(
cad1
);
END
.