Convierte las letras A, B, C y D en 1, 2, 3 y 4, y los caracteres restantes en 5

var

chr: char

comenzar

read(chr

caso

chr

de

'a':

escribir('1');

'b':

escribir('2');

'c':

escribir('3');

'd':

escribir('4');

else

escribir('5');

fin;

fin.