//!Обобщенная подпрограмма f1 не может быть аргументом function f1 := 1; begin var x := f1 + 2; end.