Дано натуральное число n. Найти среднее арифметическое значение кубов цифр заданного числа

Var   n,c,S,k:integer;BeginWrite('n = ');ReadLn(n);k:=0;S:=0;While n > 0 do   Begin   c:=n mod 10;   k:=k+1;   S:=S+c*c*c;   n:=n div 10   End;WriteLn('Sr = ',S/k);End.