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;