Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,j,max,min: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        min:=maxlongint;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If A[i]<min then
                        min:=A[i];
        End;
        max:=A[1];
        For i:=2 to n do
                If A[i]>max then
                        max:=A[i];
        Writeln('Max: ',max);
        Writeln('Min: ',min);
        Write('Nhap k: '); Readln(k);
        For i:=1 to n-1 do
                For j:=i+1 to n do
                        If abs(A[i]-A[j])<k then Writeln(A[i],' ',A[j]);
        Readln
End.

program bt;
uses crt;
var i,k,n,Max,Min:integer;
    A:array[1..1000] of integer;
begin
 clrscr;
 readln(n,k);      Max:=-10000; Min:=10000;
 for i:=1 to n do read(A[i]);
 for i:=1 to n do
  begin
   if A[i]>Max then Max:=A[i];
   if A[i]<Min then Min:=A[i];
  end;
 writeln('Max: ',Max);
 writeln('Min: ',Min);
 For i:=1 to n do if abs(A[i]-A[i+1])<k then write(A[i],' ',A[i+1],'; ');
 readln;
 readln;
end.