{Задача №2}
var x:word;
begin
  write('Введите число: '); readln(x);
  write('Число соответствует символу: ',chr(x));
end.

{Задача №3}
var x:word;
begin
  write('Введите число: '); readln(x);
  write('Следующий символ от числа: ',chr(x+1));
end.

{Задача №7}
var s:string;
begin
  write ('Введите слово: '); readln(s);
  write ('Буквы слова под номером 1,3,7 (при наличии): ');
  if length(s)>7 then print(s[1],s[3],s[7]) else
  if length(s)>3 then print(s[1],s[3]) else
  if length(s)>1 then print(s[1]);       
end.

{Задача №8}
var x:word;
begin
  write('Введите число: '); readln(x);
  writeln('Предыдущий символ: ',chr(x-1));
  writeln('Текущий символ: ',chr(x));
  write('Следующий символ: ',chr(x+1));
end.

{Задача №9}
var s:string;
begin
  write ('Введите предложение (без пробелов): '); readln(s);
  write ('Буквы слова под номером 2,6 (при наличии): ');
  if length(s)>6 then print(s[2],s[6]) else
  if length(s)>2 then print(s[2]);  
end.