Напишите программу, которая запрашивает у пользователя число, но не больше пятизначного, и выдаёт на экран сообщение о том, сколько цифр в данном числе. 0

program kolichestvo_cifr;

var n, x: integer;

begin

writeln ('Введите с клавиатуры число');

readln (n);

if x > 99999 then writeln ('Число больше пятизначного') else begin

while n > 0 do begin

n : = n mod 10;

x : = x + 1;

end;

end;

writeln ('В числе ', x, ' цифр');

end.