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

Var
i,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.