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

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.