module s;
var a, b, c:integer;

procedure x();
begin
end x;

begin
  a := 4 + 6;
  b := a + 2*a - 3;
  c := a + b
end s.