begin
  var n := ReadLnInteger('Введите число N:');
  var count := 0;
  if n <> 0 then
    while n <> 0 do
    begin
      n := n div 10;
      Inc(count)
    end
  else count := 1;
  WriteLn('Ответ: ', count);
end.