TP3/shell/tests/fixtures/t29_readln.pas

program t29;
var
  n : integer ;
  c : char ;
begin
  readln (n) ;
  writeln (n) ;
  readln (c) ;
  write (c)
end.