Нужно решить на мове pascalabc вычислить количество цифр целого неотрицательного числа n. входные данные #1 12343 выходные данные #1 5

Что-то типа этого, PascalABC.NET
begin
var a:=ReadInteger().ToString();
write(a.Count());
end.

Var
  n,k:integer;
    
begin
  Write('n ='); Read(n);
  n:=Abs(n); { от злобных буратинок с отрицательными числами }
  if k=n then k:=1
  else begin
    k:=0;
    while n>0 do begin
      k:=k+1;
      n:=n div 10
      end
    end;
  Writeln('Количество цифр в числе равно ',k)
end.

Пример
n =435342134
Количество цифр в числе равно 9