Для данной буквы латинского алфавита нужно вывести справа стоящую букву на стандартной клавиатуре. При этом клавиатура замкнута, т. е. справа от буквы "p" стоит буква "a", от буквы "l" стоит буква "z", а от буквы "m" - буква "q".

Var a:char;

begin

writeln ('Введите букву') ;

readln (a) ;

case a of

'q': writeln ('w') ;

'w': writeln ('e') ;

'e': writeln ('r') ;

'r': writeln ('t') ;

't': writeln ('y') ;

'y': writeln ('u') ;

'u': writeln ('i') ;

'i': writeln ('o') ;

'o': writeln ('p') ;

'p': writeln ('a') ;

'a': writeln ('s') ;

's': writeln ('d') ;

'd': writeln ('f') ;

'f': writeln ('g') ;

'g': writeln ('h') ;

'h': writeln ('j') ;

'j': writeln ('k') ;

'k': writeln ('l') ;

'l': writeln ('z') ;

'z': writeln ('x') ;

'x': writeln ('c') ;

'c': writeln ('v') ;

'v': writeln ('b') ;

'b': writeln ('n') ;

'n': writeln ('m') ;

'm': writeln ('q') ;

end;

end.