Программирование в паскаль abc.оператор case ввести с клавиатуры левую скобку. напечатать соответствующую ей правую.

// PascalABC.Net 3.0, сборка 1066
var
  c:char;
begin
  Write('Введите левую скобку: '); Readln(c);
  case c of
  '(':Writeln(')');
  '[':Writeln(']');
  '{':Writeln('}');
  else Writeln('неверный символ')
  end
end.