Помогите прошу. Составьте программу, которая вводит с клавиатуры три символа и выводит...

Question

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

Answer 1

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.