TP3/shell/tests/fixtures/t10_while.pas

program t10;
var
  x : integer ;
begin
  x := 0 ;
  while x < 10 do
    x := x + 1 ;
  writeln (x) ;
  x := 100 ;
  while x < 10 do
    x := x + 1 ;
  writeln (x)
end.