Описання алгоритмічної структури розгалуження (Free Pascal)