Programa Muestra de Nombre

program nombre;
uses crt;
     var Cesar, Lopez, Vargas: char;
begin
     clrscr;
     write('introduce una letra: ');
     readln(Cesar, Lopez, Vargas);
     writeln('el caracter introducido es :  Cesar, Lopez, Vargas' );
     readln;
end.