TP3/shell/tests/fixtures/t40_readln.pas

program t40;
var
  g : string [10];

procedure p;
var
  s : string [5];
begin
  readln (s);
  writeln (s);
  readln (s);
  writeln ('[');
  write (s);
  writeln (']')
end;

begin
  readln (g);
  writeln (g);
  p
end.