Вводятся 2 естественных числа. Найти среднее арифметическое цифр каждого из их

Ну это да

Так ты поможешь?

Так мне нужно именно в паскаль abs

И также необходимо расписать все

Чтоб не было каких или вопросов

Procedure SumKol(var n,k,s:integer);
begin
  if ngt;0 then begin
    s:=s+n mod 10;
    k:=k+1;
    n:=n div 10;
    SumKol(n,k,s)
  end
end;

function Mean(n:integer):real;
var k,s:integer;
begin
  k:=0; s:=0;
  SumKol(n,k,s);
  if kgt;0 then Mean:=s/k else Mean:=0
end;
 
var
  n,k,s:integer;
  m:real;
begin
  Read(n);
  Writeln(Mean(n))
end.