Занятие 13 - образец

1. Дано натуральное число. Найти количество его цифр.

Program p1;
  Var n,k:integer;
Begin
  Write ('Введите число ');
  Readln(n);
  k:=0;
  While n<>0 do
   Begin
      k:=k+1;
      n:= n div 10
  End;
Writeln('Ответ=',k)
End.