ОЧЕНЬ СРОЧНО!!!
Дано шестизначное число А. Найти сумму цифр числа и среднее арифметическое.
ПАСКАЛЬ!

program sumInt;var a: Integer; begin writeln('Введите число = '); readln(a); writeln('Сумма равна = '); writeln( (a div 100000) + (a div 10000 mod 10) + (a div 1000 mod 10 mod 10) + (a div 100 mod 10 mod 10 mod 10) + (a mod 10)); writeln('Среднее арифмитияеское = '); writeln((a div 100000) + (a div 10000 mod 10) + (a div 1000 mod 10 mod 10) + (a div 100 mod 10 mod 10 mod 10) + (a mod 10) / 6);end.