program CountDigits;

var
x, count: integer;

begin
writeln('Введите число x:');
readln(x);

count := 0;

while x > 0 do
begin
x := x div 10;
count := count + 1;
end;

writeln('Количество цифр в числе x: ', count);

end.