:в натуральном числе, найти количество цифр, которые больше его десятков. формат ввода: на вход подается натуральное число от 10 до 30000. формат вывода: найденное количество.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger;
  var s:=n.ToString;
  var d:=s[s.Length-1];
  s.Where(c->c>d).Count.Println
end.

Пример
15334
2