написать программу на языке паскаль

Ответ от Ra[гуру]
procedure bs(var a: array of integer; n: integer);
var
    c, t: integer;
    s: boolean;
begin
    repeat
    s := false;
    for c := 0 to n - 2 do
        if a[c] > a[c+1] then begin
            t := a[c]; a[c] := a[c+1]; a[c+1] := t;
            s := true
        end;
    dec(n);
    until not s;
end;
function mn(x, y: longint): longint;
begin
    if x < y then mn := x else mn := y;
end;
var
    m: array [0..100] of longint;
function tl(var a: array of integer; n: integer): longint;
var
    l: longint;
begin
    if n <= 2 then
        tl := a[2] - a[1]
    else if n = 3 then
        tl := a[3] - a[1]
    else
        if m[n] >= 0 then
            tl := m[n]
        else begin
            l := mn(a[n] - a[n - 1] + tl(a, n - 1), a[n] - a[n - 1] + tl(a, n - 2));
            m[n] := l;
            tl := l;
        end;
end;
var
    n, j: integer;
    c: array [0..100] of integer;
begin
    assign(input, 'input.txt'); reset(input);
    assign(output, 'output.txt'); rewrite(output);
    readln(n);
    for j := 1 to n do read(c[j]);
    for j := 0 to n do m[j] := -1;
    bs(c, n + 1);
    write(tl(c, n));
end.