Заполнить массив из 10 элементов с клавиатуры целыми числами. Найдите индексы элементов, больше 5 (pascal)

Предыдущий
вопрос Следующий
вопрос

program FindIndexesOfElementsGreaterThanFive;

va
arr: array[1..10] of integer
i: integer;

begi
// Заполнение массив
writeln('Введите 10 целых чисел:')
for i := 1 to 10 d
begi
write('arr[', i, '] = ')
readln(arr[i])
end;

// Поиск индексов элементов больше
writeln('Индексы элементов больше 5:')
for i := 1 to 10 d
begi
if arr[i] > 5 the
writeln(i)
end
end.