TP3/shell/tests/fixtures/t07_big.pas

program t07;
var
  x : integer;
begin
  x := 0;
  x := 1;
  x := 2;
  x := 3;
  x := 4;
  x := 5;
  x := 6;
  x := 7;
  x := 8;
  x := 9;
  writeln(x)
end.