Дан целочисленный массив A размера 10. Вывести порядковый номер последнего из тех его элементов AK, которые удовлетворяют двойному неравенству A1 < AK < A10. Если таких элементов нет, то вывести 0. на языке

var

i, k: integer;

a: array [1..10] of integer;

begin

writeln('Введите 10 элементов: ');

for k := 1 to 10 do readln(a[k]);

for k := 1 to 10 do

if (a[k] > a[1]) and (a[k] < a[10]) then i := k;

writeln('Порядковый номер последнего из элементов, удовлетворяющих А1<Ak<A10: ', i)

end.