uses crt,math;
var n:longint;
function xuli(n:longint):byte;
var m,k,ma:byte;
begin
    m:=n mod 10;
    n:=n div 10;
    ma:=0;
    while n<>0 do
        begin
            k:=n mod 10;
            ma:=max(ma,abs(k-m));
            m:=k;
            n:=n div 10;
        end;
    exit(ma);
end;
begin
    clrscr;
    readln(n);
    writeln(xuli(n));
readkey;
end.

===========================

uses crt,math;
var n:longint;
function xuli(n:longint):integer;
var m,k,ma:integer;
begin
    ma:=-1;
    while n<>0 do
        begin
            m:=n mod 10;
            if m mod 2=0 then
                ma:=max(ma,m);
            n:=n div 10;
        end;
    exit(ma);
end;
begin
    clrscr;
    readln(n);
    writeln(xuli(n));
readkey;
end.

=========================

uses crt,math;
var n:longint;
function xuli(n:longint):integer;
var m,k,ma,mi:integer;
begin
    mi:=9;
    while n<>0 do
        begin
            m:=n mod 10;
            if m<>0 then
                mi:=min(mi,m);
            n:=n div 10;
        end;
    exit(mi);
end;
begin
    clrscr;
    readln(n);
    writeln(xuli(n));
readkey;
end.

===========================

uses crt;
var n:longint;
function xuli(n:longint):integer;
var m,ma,vt,d:integer;
begin
    vt:=0;d:=0;
    ma:=0;
    while n<>0 do
        begin
            m:=n mod 10;
            if m>ma then
                begin
                    ma:=m;
                    vt:=d;
                end;
            n:=n div 10;
            inc(d);
        end;
    exit(vt);
end;
begin
    clrscr;
    readln(n);
    writeln(xuli(n));
readkey;
end.

Bài 24:

program bai_giai;
uses crt;
var n:longint;
function kq(k:longint):byte;
var a,b,max:byte;
begin
    a:=k mod 10; k:=k div 10; max:=0;
    while k>0 do
        begin
            b:=k mod 10;
            if abs(a-b)>max then max:=abs(a-b);
            k:=k div 10;
            a:=b;
        end;
    kq:=max;
end;
BEGIN
    clrscr;
    write('Nhap n: ');  readln(n);
    write(kq(n));
    readln;
END.

Bài 25:
program bai_giai;
uses crt;
var n:longint;
function kq(k:longint):integer;
var a,max:integer;
begin
    max:=-1;
    while k>0 do
        begin
            a:=k mod 10;
            if (a mod 2=0) and (a>max) then max:=a;
            k:=k div 10;
        end;
    kq:=max;
end;
BEGIN
    clrscr;
    write('Nhap n: ');  readln(n);
    write(kq(n));
    readln;
END.

Bài 26:
program bai_giai;
uses crt;
var n:longint;
function kq(k:longint):byte;
var a,min:byte;
begin
    min:=9;
    while k>0 do
        begin
            a:=k mod 10;
            if (a>0) and (a<min) then min:=a;
            k:=k div 10;
        end;
    kq:=min;
end;
BEGIN
    clrscr;
    write('Nhap n: ');  readln(n);
    write(kq(n));
    readln;
END.

Bài 27:
program bai_giai;
uses crt;
var n:longint;
function kq(k:longint):byte;
var a,vt,max,d:byte;
begin
    max:=k mod 10; vt:=0; d:=0; k:=k div 10;
    while k>0 do
        begin
            a:=k mod 10; d:=d+1;
            if a>max then
                begin
                    max:=a; vt:=d;
                end;
            k:=k div 10;
        end;
    kq:=vt;
end;
BEGIN
    clrscr;
    write('Nhap n: ');  readln(n);
    write(kq(n));
    readln;
END.