Помогите составить программу, которая находит количество цифр данного целого числа.Пожалуйста
Begin var a:=readlnstring; writeln(a.length); end.