Паскаль! Помогите пожалуйста!
Дан целочисленный массив из 40 элементов. Элементы массива могут принимать целые значения
от 1 до 10000 включительно. Опишите на естественном языке или на одном из языков программирования
алгоритм, позволяющий найти и вывести количество элементов массива, восьмеричная запись которого содержит ровно две цифры, причем первая (старшая) цифра меньше второй (младшей).
сonst N=40;
var a: array [1..N] of integer;
i, j, k: longint;
begin
for i:=1 to N do
readln(a[i]);
…
end.

Делаем переменную count — счётчикДля наивной реализации, можно проверить что число лежит в диапазоне [0o10; 0o77] или в десятичной [8; 63]Потом проверить что a[i] mod 8 > a[i] div 8Если число соответствует всем условиям, увеличиваем счётчикПотом выводим значение count