В Pascal ABC для букв латинского алфавита на стандартной клавиатуре нужно напечатать букву справа от нее. В этом случае клавиатура считается закрытой, то есть буква”s”,буква”q”справа от буквы”w”.

Код (PascalABC.NET):

##

var keyboard := 'qwertyuiopqasdfghjklazxcvbnmz';  // строчка, которая получилась при проведении пальцем по клавиатуре. Первый символ повторяется после последнего символа своего ряда

var index := pos(ReadChar, keyboard);  // ищем позицию введенного символа

write(keyboard[index + 1]) // и выводим символ, который идет после найденного

Пример ввода:

l

Пример вывода:

a