Всё просто

Алгоритм:

for j := 1 to N do

if (8 <= a[j]) and (a[j] <= 63) and (a[j] div 8 < a[j] mod 8) then k:=k + 1

for j := 1 to N  - перебор всех элементов массива

(8 <= a[j]) and (a[j] <= 63) - восьмеричная запись чисел от 8₁₀ до 63₁₀  содержит ровно две цифры 

(a[j] div 8 < a[j] mod 8) - первая (старшая) цифра меньше второй (младшей) при восьмеричная запись чисел от 8₁₀ до 63₁₀

k:=k + 1 - счётчик количества элементов массива соответствующих условиям

Программа целиком:

const N=40;

var a: array [1..N] of integer;

i, j, k: longint;

begin

for i:=1 to N do

readln(a[i]);

for j := 1 to N do

if (8 <= a[j]) and (a[j] <= 63) and (a[j] div 8 < a[j] mod 8) then k:=k + 1;

writeln('Количество элементов массива, восьмеричная запись которого содержит ровно две цифры, причем первая (старшая) цифра меньше второй (младшей), равно: ',k);

end.