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

Странноватая задачка. В 5 деяний включаются 2 условия?

Я представляю так


var
  a, b: integer;

begin
  readln(a, b);
 
  if a * b lt; 0 then begin условие 1
    a := a * 2;           деяние 1
    if a gt; 0 then         условие 2
      a := -a             деяние 2
    else
      b := -b;            деянье 3
    writeln(a - b);       деяние 4
  end
  else
    writeln(b - a);       деяние 5
end.

Ну, глядите. Формально в программке два условия и 5 деяний:

var
  a, b: integer;

begin
  readln(a);
  readln(b);
  if a = b then writeln(a, ' = ', b)
    else
  if a gt; b then writeln(a, 'gt;', b)
  else
    writeln(a, 'lt;', b);   
end.