Ваня работал в графическом редакторе paint...

Замечание. Так как количество вводимых чисел заранее не известно, то откроем бесконечный цикл со всегда верным условием True, но как только будет введено число 0, остановим цикл командой break.

Программа:

program z;
var k,s,x:integer;
begin
k:=0;              {начальное значение количества двузначных чисел}
s:=0;              {начальное значение суммы двузначных чисел}
while True do  {открываем бесконечный цикл}
begin
readln(x);        {вводим число х}
if x=0 then break;  {если введенное число равно 0, то остановить цикл}
if (x>9)and(x<100) then  {если число двузначное, т.е. от 10 до 99} 
    begin 
    k:=k+1;         {количество увеличиваем на 1}
    s:=s+x;         {увеличиваем предыдущее значение суммы на число х}
    end;
end;
if k=0 then writeln('NO')  {если двузначных чисел не было, то вывод NO}
   else writeln(s/k);          {иначе вывод ср.арифметического}
end.

(x, y, z) = (4, 1, 6), (4, 2, 7)

Объяснение:

Так как числа представлены в восьмеричной системе счисления, x, y, z ≤ 7. Более того, в числах с количеством цифр больше одной цифры в старшем разряде ненулевые, то есть x, y ≥ 1. Переведём все числа в десятичную систему счисления:

Правая часть делится на 4, значит, и левая делится на 4. Так как x ∈ [1; 7], x = 4. Тогда z - y = 5. Если y = 1, то z = 6; если y = 2, то z = 7. При больших y z ≥ 8, чего быть не может. Значит, получаем две тройки решений: (x, y, z) = (4, 1, 6), (4, 2, 7).