'ввести два числа (а, b), если разность чисел b и а отрицательна и делится на 4, то удвоить разность.' , ..

Var
  a, b: integer;

begin
  readln(a, b);
  a := b - a;
  if (a < 0) and (a mod 4 = 0) then
    writeln(4 * a)
  else writeln(a);
end.