Помогите составить алгоритм на ветвление, где 2 условия и 5 действий.

Ну, смотрите. Формально в программе два условия и 5 действий: var   a, b: integer; begin   readln(a);   readln(b);   if a = b then writeln(a, ' = ', b)     else   if a > b then writeln(a, '>', b)   else     writeln(a, '<', b);    end.

Я представляю так var   a, b: integer; begin   readln(a, b);     if a * b < 0 then begin {условие 1}     a := a * 2;           {действие 1}     if a > 0 then         {условие 2}       a := -a             {действие 2}     else       b := -b;            {действие 3}     writeln(a - b);       {действие 4}   end   else     writeln(b - a);       {действие 5} end.