//!Невозможно вывести типы-параметры обобщённой подпрограммы f1 (укажите типы-параметры явно) function f1 := 1; begin var x := f1 + 2; end.