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

var a,b,i,s,p:integer;beginreadln(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.Пример:1389546s = 36 p = 25920 sr = 5.14