Viết chương trình xem n có bao nhiêu chữ số trong pascal bằng chương trình con

function dem(n: integer): integer;
var
  cnt: integer;
begin
  cnt := 0;
  while n <> 0 do
  begin
    cnt := cnt + 1;
    n := n div 10;
  end;
  dem := cnt;
end;
var
  n: integer;
begin 
  readln(n);
  writeln(dem(n));
end.

uses crt;
  var s : longint ;
 function length_number(n:longint):longint;
     begin
    if n < 10 then exit(1);
    exit(1+length_number(n div 10));
     end ;
begin
    readln(s);
    write(length_number(s));
end .