test7.txt

program hello;
const
	cn = 2;
	dn = 123.23;

var	
	f : int;
	k : int;

function add(a:int; b :int),int;
begin
	add := a + b;
end
;

procedure test(var aa : int);
begin
	aa := add(aa : 3);
end
;

begin
	k := 1;
	test(k);
	writeln(k);
end
.