Алгоритмічна структура розгалуження. TurboPascal