Pascal :

 var n:char;
 begin
 readln(n);
if n='a' then writeln('1') else
  if n='b' then writeln('2')
    else if n='c' then writeln('3') else
     if n='d' then writeln('4') else
      writeln('5');
 end.