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

procedure test(x:integer);
begin
   a := x * x + 1337;
   b := a * x
end test;

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