teste.simple

let
  integer x, y, z.
in
  x := 10;
  y := 20;

  x := x + y;
  y := y - x;

  if x < y then
    z := x * y;
  else
    z := x / y;
  fi;

  write x;
  write y;
  write z;
end