Составить программу в PascalABC, которая запрашивает ввод буквы латинского алфавита, а потом для данной буквы напечатает справа стоящую букву на стандартной клавиатуре. При этом считается, что справа от буквы "P" стоит буква "A", от буквы "L" стоит буква "Z", от буквы "M" стоит буква "Q".

// PascalABC.NET 3.0, сборка 1073const  s='QWERTYUIOPASDFGHJKLZXCVBNMQqwertyuiopasdfghjklzxcvbnmq';var  c:char;  p:integer;begin  repeat    Write('Введите латинскую букву, иной символ завершит работу: ');    Readln(c);    p:=Pos(c,s);    if p>0 then Writeln('Рядом буква "',s[p+1],'"')  until p=0end.Тестовое решение:Введите латинскую букву, иной символ завершит работу: yРядом буква "u"Введите латинскую букву, иной символ завершит работу: HРядом буква "J"Введите латинскую букву, иной символ завершит работу: mРядом буква "q"Введите латинскую букву, иной символ завершит работу: PРядом буква "A"Введите латинскую букву, иной символ завершит работу: 5