Определите разрядность числа из интервала (-100;100).Число задать случайным образом

1. Современный вариант// PascalABC.NET 3.1, сборка 1184 от 02.03.2016begin  var n:=Random(-100,100);  Writeln('В числе ',n,' количество разрядов равно ',    abs(n).ToString.Length)end.Тестовое решение:В числе -40 количество разрядов равно 22. Школьный вариант (понятный большинству учителей)// PascalABC.NET 3.1, сборка 1184 от 02.03.2016var  n,k:integer;begin  Randomize;  n:=Random(201)-100;  k:=1;  Write('В числе ',n,' количество разрядов равно ');  n:=abs(n);  while n>0 do begin    n:=n div 10;    if n>0 then Inc(k)    end;  Writeln(k)end.Тестовое решение:В числе -5 количество разрядов равно 1