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('Порядковый номер последнего из элементов, удовлетворяющих А1end.