Найти номера первого из двух последних элементов массива из 30 элементов произведение которых максимально.

Program C21; uses Crt;const n = 30;var a : array[1..n] of integer; k, i, max : integer;beginfor i := 1 to n do beginwrite('vvedite ',i,' - iy element massiva - ');readln(a[i]);
end;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(k);end.