Ну, смотрите. Формально в программе два условия и 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.