PROGRAM EJER67;
USES CRT;
VAR cadena : STRING;
BEGIN
CLRSCR;
WRITELN ('Introduzca una cadena para saber su longitud:');
WRITELN ('');
READLN (cadena);
WRITELN ('');
WRITE ('La longitud de la cadena es de: ');
WRITE (LENGTH (cadena), ' caracteres');
END.