program KhoangCachSo;
const
  MAX = 100;
var
  a: array[1..MAX] of integer;
  n, i, j, maxDist, minDist, maxIndex, minIndex: integer;
  foundMax: boolean;
begin
  write('Nhap so phan tu cua day: ');
  readln(n);
  
  // Nhập dãy số
  writeln('Nhap day so:');
  for i := 1 to n do
  begin
    write('a[', i, '] = ');
    readln(a[i]);
  end;

  foundMax := false;
  maxDist := 0;
  // Tìm khoảng cách lớn nhất
  for i := 1 to n - 1 do
  begin
    for j := i + 1 to n do
    begin
      if abs(a[i] - a[j]) > maxDist then
      begin
        maxDist := abs(a[i] - a[j]);
        maxIndex := i;
        foundMax := true;
      end;
    end;
  end;

  if foundMax then
    writeln('Hai so co khoang cach lon nhat la: ', maxDist)
  else
    writeln('Khong co cap so nao de tim khoang cach lon nhat');

  // Tìm khoảng cách bé nhất
  minDist := abs(a[1] - a[2]);
  minIndex := 1;
  for i := 1 to n - 1 do
  begin
    if abs(a[i] - a[i + 1]) < minDist then
    begin
      minDist := abs(a[i] - a[i + 1]);
      minIndex := i;
    end;
  end;
  writeln('Hai so ', a[minIndex], ' va ', a[minIndex + 1], ' co khoang cach be nhat la: ', minDist);
end.