Program Vector;

Var
    B: array [0..7] of Integer = (1, 2, 4, 6, 10, 20, 5, 3);
    dif: array [0..6] of Integer;
    i, min, max: Integer;

Begin
    Write('B = { ');
    for i := 0 to length(B) - 1 do begin
        Write(B[i], ' ');
    end;
    Writeln('}');

    for i := 0 to length(dif) - 1 do begin
        dif[i] := abs(B[i] - B[i + 1]);
    end;

    min := 1000000;
    max := 0;

    for i := 0 to length(dif) - 1 do begin
        if (dif[i] < min) then
            min := dif[i];
        if (dif[i] > max) then
            max := dif[i];
    end;

    Writeln('Min: ', min);
    Writeln('Max: ', max);

    ReadLn;
End.