begin
var number := ReadInteger('Введите число:');
var numberStr := IntToStr(number);
var count := Length(numberStr);
Println('В числе цифр:', count);
end.
