TP3/shell/tests/fixtures/t132_readchararr.pas

program readchararr;
var A : array[1..5] of char;
begin
  Readln(A);
  Writeln('(', A, ')')
end.