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

Возникновение письменности произошло, когда человек перешел на оседлый образ жизни. именно тогда усложнились методы обработки земли, усовершенствовались орудия труда, возникла и получила широкое распространение религия. человечество приобрело начальный опыт взаимодействия с окружающей действительностью; опыт, который стоило передать следующим поколениям. устные предания не могли полностью выполнить эту функцию, возникла потребность наглядной передачи информации другим людям. так появились первые письменные свидетельства жизни древних людей. 

Const n=20;   var a: array[1..n] of integer;   i,s,k: integer; begin for i: =1 to n  do   begin   a[i]: =random(21)-10;   write(a[i]: 4);   end; writeln; s: =0; k: =0; for i: =1 to n do   if a[i]< 0 then begin s: =s+a[i]; k: =k+1; end; writeln('количество отрицательных = ',k,',   их среднее арифметическое = ',s/k: 6: 3); end. пример:   -1   -1   -9   7   4   -4   7   1   7   2   6   -4 -10   4   5   1   6   -9   -2   0 количество отрицательных = 8,   их среднее арифметическое = -5.000