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.