Нужно
Программ всего 8 штук (2 из них вообще состоят из пяти строк). Пример программы, которую нужно "перевести" на паскаль:
n = int(input())
a = [int(input()) for i in range(n)]
ans1 = 0
ans2 = 10 ** 9
for i in range(0, n):
for j in range(i + 2, n):
m = max(a[i:j + 1])
if a[i] < m > a[j] and j - i <= ans2 - ans1:
ans2 = j
ans1 = i
if ans2 != 10 ** 9:
print(ans1 + 1, ans2 + 1)
else:
print(0)