дан целочисленный массив из 30 элементов элементы массива могут принимать значения от 0 до 1000 найти колво элементов массива десятичная запись которых содержит ровно 2цифры причем хотя бы одна их этих цифр 9ых

vara: array[1..30] of integer;i, k: integer;begin    k:=0;    //считываем массив  for i:=1 to 30 do     readln(a[i]);    for i:=1 to 30 do    //проверяем, если элемент > 9 и < 100, то он двузначный    //если остаток от деления на 10 = 9    //или результат деления на 10 = 9    //то в числе содержится цифра 9      if (a[i] > 9) and (a[i] <100) and ((a[i] mod 10 = 9) or (a[i] div 10 = 9)) then    inc(k); //увеличиваем k с инкрементом 1    writeln(k);end.