{* Количество цифр кратных старшей цифре числа *}

Unit PAS76357;
Interface
Implementation
Begin
 writeln('Найти количество цифр кратных старшей цифре числа');
End.

Program pas76357;

Uses pas76357.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  i   : integer;
  n   : integer;
  res : integer;
Begin
  writeln('Vvedite chislo');
  readln(n);
  res := 0;
  While (n > 9) Do
    n := n Div 10;
  For i := 1 To 9 Do {* Переменная i увеличивается с 1 до 9 *}
    If (i Mod n = 0) Then
      inc(res); {* Прибавим к res единицу *}
  writeln(res);
  readln; {* Приостановка программы. Ожидание Enter *}
End.