Программные средства языка Pascal (версия 7.0), Объекты в Pascal, Оператор выбор Блок схема с функциями пример