declare A : Integer := 12; begin Foo (A); end;