program test (int,out);
var x: integer;
begin
  x := 3;
  while (x > 0) do
    x := x - 1
end.
