Два ближайших числа

Дан список целых чисел, содержащий как минимум два элемента. Найдите в нём два ближайших элемента (то есть два элемента с минимальной абсолютной разностью). Изменять список при этом нельзя.

Входные данные:

В первой строке дано натуральное число N≤100 — размер массива. В следующей строчке даны N целых чисел, не превосходящих по модулю 231

Выходные данные:

Программа должна вывести два числа: индексы двух элементов списка, абсолютная величина разности которых минимальна.

Примеры:

Ввод:

6

7 0 4 2 5 9

Вывод:

2 4

2 мальчика плывут на тот берег

1 мальчик возвращается

1 солдат плывет на тот берег

второй мальчик возвращается

2 мальчика плывут на тот берег

1 мальчик возвращается

1 солдат плывет на тот берег

второй мальчик возвращается

и так по кол-ву солдат

ну его в баню такую переправу и бедные мальчики

var

a: integer;

begin

readln(a);

writeln(a*(a div 10 + (a mod 10)*10));

end.

1) program imja_program

2) var imja_peremennoj: tip_peremennoj

3)integer,byte,real,long, short и еще какие-то но вряд ли будешь их использовать

более подробно смотри в википедии

var i: integer;

begin

  i: =16;

  repeat

        if i mod 2=0 then writeln(i);

        i: =i+1;

  until i> 24

end.