begin
comment procedure can't be defined outside of main block  before or after it;
	integer n;
	
	procedure test(integer value m); 
	begin
		write(m*m)
	end;

	n := 9;
	test(n)
end.