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

procedure test(x:integer);
 var y,z:integer;
begin
  y := x * 3 + 2;
  z := x + y + a;
end test;

procedure add(a:integer; b:integer):integer;
 var 
  tmp : integer;
 begin
  tmp := a + b;
  return tmp
 end add;

begin
  a := 12;
  b := a * 12 + 33;
  c := a div b + a * b * 99;
end test.