уточнен переход в секцию CLOSE
улучшена работа с параметрами процедуры, теперь данные точно уходят в параменную
MODULE XevDemo3;

VAR i: INTEGER;

	PROCEDURE Do(VAR x: INTEGER);
	BEGIN
		x:=i+14;
	END Do;

BEGIN
	i:=4;
	Do(i)
END XevDemo3.