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

Var   a: longint;   s: string; begin   writeln('введите целое положительное число');   readln(a);   str(a,s);   writeln('количество цифр в числе равно ',length(s)); end. тестовый пример: введите целое положительное число 23434232 количество цифр в числе равно 8

имхо так:

 

program solution; uses crt; var sec, num, n1, i : longint; beginclrscr; readln(sec); num : = 1; n1 : = 0; repeat              for i : = 1 to num do                              begin                              write(num, ' ');                               n1 : = n1 + 1;                               if n1 > = sec then break;                               end;               num : = num + 1; until n1 > = sec; end.

var

  a, b, c, d, t1, t2: longint;

begin

  write('a = '); readln(a);

  write('b = '); readln(b);

  write('c = '); readln(c);

  write('d = '); readln(d);

  if a < b then

      t1 : = a

  else

      t1 : = b;

  if c < d then

      t2 : = c

  else

      t2 : = d;

  if t1 < t2 then

      writeln('min = ', t1)

  else

      writeln('min = ', t2);

  readln;

end.