Знайти суму чисел введеного чотирьохзначного числа  та їх середнє арифметичне
Наприклад 2013  = 2+0+1+3 =6Середнє арифметичне  6/4=1,5

vari,n,m,x,k:Integer;s:String;Begin Read(n); While (n>0) do  begin   m:=(n mod 10);   n:=(n div 10);   x:=x+m;   k:=k+1;  end; Writeln('Сума : ',x); Writeln('Середнє арифметичне : ',x/k:0:1);end.