Online Pascal Compiler

PROGRAM EXERCISES1; USES CRT; VAR TOMB_RAIDER:CHAR; BEGIN ClrScr; WRITE ('Introduzca un caracter alfanumerico: '); READLN (TOMB_RAIDER); WRITE ('El caracter introducido es -----> ' + TOMB_RAIDER); END.