TP3/shell/tests/fixtures/t37_readbyte.pas

program t37;
var
  b : byte ;
  n : integer ;
begin
  n := 1000 ;
  readln (b) ;
  writeln (b, ' ', n) ;
  n := 1000 ;
  readln (b) ;
  writeln (b, ' ', n)
end.