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

Vari,a,k,m: integer;                     begin                                repeat                                          writeln(' введите число');                                               readln(a);   k: =0;                                                   while a> 0 do                                                            begin                                                                        m: =a mod 10;                                                                       k: =k+1;                                                                       a: =a div 10;                                                             end;                                             until k< =5;                           writeln(k); end.

var

n: integer;

begin

readln(n);

case n mod 12 of

4: writeln('год крысы');

5: writeln('год коровы');

6: writeln('год тигра');

7: writeln('год зайца');

8: writeln('год дракона');

9: writeln('год змеи');

10: writeln('год лошади');

11: writeln('год овцы');

0: writeln('год обезьяны');

1: writeln('год петуха');

2: writeln('год собаки');

3: writeln('год свиньи');

end;

end.