составьте программу, которая вводит с клавиатуры три символа и выводит тот символ, код которого находится между двумя другими.

Var   a: array[1..3] of byte;   i: integer; begin   writeln('введите код трех символов(через пробел): ');   for i: =1 to 3 do   begin     read(a[i]);   end;   writeln('символ посередине: ', chr(a[2])); end.