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

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.