Для данной буквы латинского алфавита нужно вывести справа стоящую букву на стандартной клавиатуре. При этом клавиатура замкнута, т.е. справа от буквы «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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.