контрольная работа по информатике

[Олимпиада 2012]

кароче мне тут дали задачу немагу решить помогите
Дается последовательность из N чисел. Найти максимальное произведение среди всех пар этих чисел.

Формат входных данных:
Первая строка входного файла содержит целое число N(1<=N<=1000). В следующей строке задаются N целых чисел, каждое число из которых по модулю меньше или равно 1000.

ПОМОГИТЕ СРОЧНО НУЖНО !!!

[domovou]

входной файл

10
2 3 5 4 7 8 9 6 5 4

var a : array[1..1000] of integer;
    n, k, i, max : integer;
    f:text;
begin
assign(f,'f.txt');
reset(f);
readln(f,n);
for i := 1 to n do
         read(f,a[i]);
close(f);

k := 1;
max := a[1] * a[2];
for i := 2 to n-1 do
    begin
     if (a[i] * a[i + 1]) > max then
        begin
        max := a[i] * a[i + 1];
        k := i;
        end;
    end;
writeln;
writeln(max);
end.

[Олимпиада 2012]

благодарствую, работает))
теперь если можно еще одну)
В ряд стоят N стульев. Время от времени подходит человек и садится на один из свободных стульев. При этом соседи (если такие есть) встают и уходят. Какое наибольшее число стульев может оказаться занятым, если сначала все они своюодны?
Формат входных данных:
Первая строка входного файла содержит целое число N(1<=N<=1000)

[BDA]

http://programmersforum.ru/showthread.php?t=222845