Алгоритми з розгалуженням

Команда повного розгалуження в мові програмування Object Pascal має такий загальний вигляд:
         If <логічний вираз>
         Then begin
                  <послідовність команд 1>
             and
         Else begin
                 <послідовність команд 2>
             and;
        Виконання цієї програми відбувається так: обчислюється значення логічного виразу; якщо це значення true, то виконується послідовність команд 1 і після цього виконується команда, наступна за розгалуженням; якщо це значення false, то виконується послідовність команд 2 і після цього виконується команда, наступна за розгалуженням.
       Є в Object Pascal і команда неповного розгалуження:
       If <логічний вираз>
       Then begin
                <послідовність команд>
       and;
        Виконання цієї команди відбувається так: обчислюється значення логічного виразу; якщо це значення true, то виконується послідовність команд і після цього виконується команда, наступна за розгалуженням; якщо це значення false, одразу виконується команда, наступна за розгалуженням.