--- PascalABC.NET 3.6.2 ---
begin
var N := ReadInteger();
var A := ReadArrinteger(N);
A.ForEach(p -> Println(abs(p).ToString.Length));
end.
Объяснение:
Дан во вложении.
