var

  a, max, t:integer;

begin

  write('Введите число '); readln(a);

  max := abs(a mod 10 - (a mod 100) div 10);

  while a div 10 0 do

  begin

    t := a div 10;

    while t 0 do

    begin

      if abs(t mod 10 - a mod 10) > max then

        max := abs(t mod 10 - a mod 10);

      t := t div 10;

     end;

    a := a div 10;

  end;

  writeln('Max = ', max);

end.