Готовое решение задачи Паскаль. Решения Pascal. Задачи паскаль. Задачи pascal

Условие Задачи: Решение ТУТ

Дана последовательность натуральных чисел A[j] (длина последовательности заранее не известна, использовать функцию SeekEoLn или SeekEoF). Найти сумму чисел, не делящихся на 2 и 11, наибольшее из таких чисел и номер этого числа в последовательности.
Блок схема

___________________________________________________________