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

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