дано натуральное число n. составьте программу, которая определяет, сколько цифр содержится в числе n.

Program acab;
var n:real;
i:integer;
begin
read(n);
i:=0;
repeat
n:=n/10;
i:=i+1;
until abs(n)<1;
writeln(i);
end.