Составить программу, которая для любого натурального числа печатает количество цифр в записи этого числа.

var ch:longint;
function f_kol(ch:longint):byte;
begin
   if ch=0 then f_kol:=0
           else f_kol:=f_kol(ch div 10)+1;
end;
begin
  writeln('Vvedi chislo');
  readln(ch);
  writeln(f_kol(ch));
end.

uses crt;
var n:1..maxlongint;//натуральное число до 2 147 483 647
    k:byte;//количество цифр
begin
clrscr;
repeat
write('Введите натуральное число до ',maxlongint,' n=');
readln(n);
until n>0;
k:=0;
while n>0 do//пока число не ноль
 begin
  n:=n div 10;//делим его на 10
  k:=k+1;//считаем
 end;
write('Количество цифрв числе=',k);
readln
end.

var
  temp,n,pr,c,first,sum:integer;
begin
  ReadLn(N);
  temp:=n;
  if N<>0 then
    pr:=1
  else
    pr:=0;
  sum:=0;
  c:=0;
  while temp<>0 do
  begin
    inc(sum, temp mod 10);
    pr:=pr*(temp mod 10);
    inc(c);
    if temp div 10 = 0 then
      first:=temp mod 10;
    temp:=temp div 10
  end;
  WriteLn(c,' ',sum,' ',pr,' ',first);
  ReadLn
end.

program Programma;
var
 N : integer; strN : string;
begin
  cls;
  write('Введите число: ');
  read(N);
  Str(N,strN);
  write('Цифр в числе - ',Length(strN));
  readln;
end.