Решить по информатике на packal. 70 .

// pascalabc.net 3.0, сборка 1073 const   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=0 end. тестовое решение: введите латинскую букву, иной символ завершит работу: y рядом буква "u" введите латинскую букву, иной символ завершит работу: h рядом буква "j" введите латинскую букву, иной символ завершит работу: m рядом буква "q" введите латинскую букву, иной символ завершит работу: p рядом буква "a" введите латинскую букву, иной символ завершит работу: 5

  program primer;       var a,b,c,d: integer; begin  writeln ('введите значение для переменной a');       readln(a);     writeln ('введите значение для переменной b');       readln(b);                 if   a> b then          begin c: =1; d: =2;           end             else            begin c: =3; d: =4;       end;           writeln('c=',c,'   ','d=',d);       readln;   end.