9 напишите структуру оператора ветвления

Pascal Оператор ветвления (условный оператор) IF    If (условие) then   Блок, выполняющийся, если условие верно  else  Блок, выполняющийся если условие не верно Сокращенная форма (else может отцутствовать) if (условие) then  Блок, выполняющийся, если условие верно Если условие одно то запись имеет вид  if a >b then... Если условий несколько, то они берутся в скобки and (выполняются все); or (выполняется хоть одно) 1 - верно 0 - неверно ( 1 and 1 = 1; 1 and 0 = 0)    (1 or 1 =1; 1 or 0 = 1;  0 or 0 = 0)  if (a>b) and (a > 0) then Если блок да/нет содержит несколько операторов, то они беруться в операторные скобки  if a > b then   writeln (a)    // 1)   if a > b then  begin   writeln (a); // 1)   b := a + b; // 2)  end; if a > b then  begin   writeln (a); // 1)   b := a + b; // 2)  end else  begin   writeln (b); //1)   a := a + b; //2)  end;