Дано шестизначное число а. найти сумму цифр числа и среднее арифметическое. паскаль!

begin

 var a := 123456;

 var s := a.ToString;

 var Sum := s.Aggregate(0, (s, x) -> s + x.toDigit);

 Print(Sum, Sum / s.Length)

end.

PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018

begin

 var a := ReadString('num->').JoinIntoString(' ').ToIntegers;

 Println('Сумма =', a.Sum);

 Println('Сред. арифм =', a.Average);

end.

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.