Определить количество цифр, среднее арифметическое цифр в натуральном числе

begin
  var n:=ReadlnInteger('Введите число:').ToString.JoinIntoString(' ').ToIntegers;
  write('Количество цифр: ',n.Count,'; Среднее арифметическое: ',n.Average:0:1
    ,'; Сумма квадратов: ',n.Sum(v->v.Sqr),'; Сумма первой и последней: ',n[0]+n[n.Length-1]);
end.

var
  dig:array [1..100] of shortint;
  n,k,ave,sum:integer;
begin
  n:=ReadlnInteger('Введите число:');
  k:=0;
  while n<>0 do begin
    k+=1;
    dig[k]:=n mod 10;
    n:=n div 10;
  end;
  writeln('Количество цифр: ', k);
  ave:=0; sum:=0;
  for var i:=k downto 1 do begin
    ave+=dig[i]; sum+=sqr(dig[i]);
  end;
  writeln('Среднее арифметическое: ', ave/k:0:1);
  writeln('Сумма квадратов: ',sum);
  writeln('Сумма первой и последней цифры: ',dig[1]+dig[k]);
end.

var
  n,k,ave,sum,sum1:integer;
begin
  n:=ReadlnInteger('Введите число:');
  k:=0; sum:=0; sum1:=n mod 10;
  while n<>0 do begin
    k+=1;
    sum+=sqr(n mod 10);
    ave+=n mod 10;
    if n.ToString.Length=1 then sum1+=n;
    n:=n div 10;
  end;
  writeln('Количество цифр: ', k);
  writeln('Среднее арифметическое: ', ave/k:0:1);
  writeln('Сумма квадратов: ',sum);
  writeln('Сумма первой и последней цифры: ',sum1);
end.

var n,a,b,c,d,e:longint;
begin
  write('n=');readln(n);
  a:=1;//количество цифр;
  e:=n mod 10;//первая цифра
  n:=n div 10;
  while n>0 do begin
    a:=a+1;
    d:=n mod 10;//очередная с конца цифра
    b:=b+d;//сумма цифр
    c:=c+d*d;//сумма квадратов
    n:=n div 10; //уменьшаем в 10 раз - переходим к следующей цифре
  end;
  writeln('количество цифр:',a);
  writeln('среднее арифметическое цифр:',(b+e)/a:0:4);
  writeln('сумма квадратов цифр:',c+e*e);
  writeln('сумма первой и последней цифр:',e+d);
end.

begin
  var Число := ReadInteger('Введите натуральное число:');
  var КоличествоЦифр := 0;
  var СуммаЦифр := 0;
  var СуммаКвадратовЦифр := 0;
  var ПоследняяЦифра := Число mod 10;
  var ПерваяЦифра := 0;
  while Число <> 0 do
    begin
      КоличествоЦифр := КоличествоЦифр + 1;
      СуммаЦифр := СуммаЦифр + Число mod 10;
      СуммаКвадратовЦифр := СуммаКвадратовЦифр + Sqr(Число mod 10);
      ПерваяЦифра := Число mod 10;
      
      Число := Число div 10;
    end;
    
  WriteLn('Количество цифр = ', КоличествоЦифр);
  WriteLn('Среднее арифметическое цифр = ', СуммаЦифр / КоличествоЦифр);
  WriteLn('Сумма квадратов цифр = ', СуммаКвадратовЦифр);
  WriteLn('Сумма первой и последней цифр = ', ПерваяЦифра + ПоследняяЦифра);
end.