arif1.PAS

{* Подсчет цифр в числе *}

Unit ARIF1;
Interface
Implementation
Begin
 writeln('Подсчитать кол-во цифр в заданном натуральном числе');
End.

{Andrey Sharov}
{ e-mail : ansharov@one.lv                     }
{ website: borlpasc.narod.ru                     }
Program N1{подсчитать кол-во цифр в заданном натуральном числе}
;

Uses arif1.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  N : integer;
Function KOL(N : integer) : integer;
Begin
  If N > 9 Then
    KOL := KOL(N Mod 10) + KOL(N Div 10)
  Else KOL := 1;
End;
Begin
  Write('Введите N');
  ReadLn(N);
  WriteLn(KOL(N));
  ReadLn; {* Ждем нажатия Enter *}
End.