var

  i, ans: byte;

begin

  ans := 0;                           // Обнуляем ответ.

  for i := 10 to 49 do          // Переменной i перебираем значения от 10 до 49, то есть все

                                             натуральные двузначные числа, меньшие  50-ти

    if i mod 11 <> 0 then   // Если текущее значение переменной не делится на 11, то…

      inc(ans);                      // Увеличиваем ответ

  writeln(ans);                   //Выводим окончательный ответ

end.