Написать программу, реализующую ввод числа и определение его длины.

Var a,n:integer;
begin
readln(a);
n:=0;
While a>0 do
Begin
a:=a div 10;
n:=n+1;
end;
writeln(n);
end.