Приведи пример применения удобного вида структуры ветвления​

a = 2

b = 1

if b > a:

 print("b больше a")

else:

 print("a больше b")

Информатика: 
романтика, аниматор, митрофан, романтик, антимир, 
инфаркт, камфора, каротин, картина, комната
марафон, мартини, матрона, намотка, окраина
ритмика, фанатик, фонарик, аконит, амфора
анатом, арника, аромат, африка, карман
картон, катион, катран, кафтан, комар
микрон
криптография: 
пиктография, типография, риторика,типограф,атрофия
киприот, порфира, тропики, гарпия, готика
график, графит, коряга, оптика, партия
пирога, портик, портки, приток, прокат
прятки, рапорт, трагик, трафик, тропик
тряпка, фактор, апорт, гопак, игрок
Декодирование:
кодирование, единоверка, диковина, иноверка, краденое
вареник, видение, воронка, вредина, дарение
двоение, дворник, доверие, доводка, кивание
киновед, конвоир, коневод,  краевед, родинка
водник, ворона, дверка, дворик, дерево
диакон, доение, дракон, древко, дровни
ендова

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

var c, w: integer;

procedure check;

begin

 var (a, b) := (Random(0, 20), Random(0, 20));

 Print($'{a}*{b}=');

 if a * b = ReadInteger then begin inc(c); Println('Правильно') end

 else begin inc(w); Println('Неправильно') end;

end;

procedure res;

begin

 Println($'Задано вопросов {c+w}');

 Println($'Правильных {c}({(c*100)/(c+w):f1}%)');

 Println($'Неправильных {w}({(w*100)/(c+w):f1}%)');

end;

begin

 var start := true;

 while start do

 begin

   Println('Проверим?(0/1)');  

   if ReadInteger = 0 then

   begin start := false; res; end

   else check;

 end;

end.

Пример в приложении.