Написать программу (с program. var и тд) дано семизначное число. найти сумму,произведение и среднее арифметическое этих цифр

Var a,b,i,s,p:integer;
begin
readln(a);
s:=0; p:=1;
for i:=1 to 7 do
 begin
 b:=a mod 10;
 s:=s+b;
 p:=p*b;
 a:=a div 10;
 end;
writeln('s = ',s,' p = ',p,' sr = ',s/7:5:2);
end.

Пример:
1389546
s = 36 p = 25920 sr = 5.14

Программа прикреплена в приложении

Примеры:

Введите семизначное число: 4564564
Среднее арифметическое цифр числа: 4.85714

Введите семизначное число: 6535684
Среднее арифметическое цифр числа: 5.29

Введите семизначное число: 6563258
Среднее арифметическое цифр числа: 5.00