Для наглядности, чтобы пользователи могли легко ознакомиться с информацией
Var c:char; a,s,p,k:integer;
begin
readln(c);
a:=ord(c);
writeln('code = ',a);
s:=0; k:=0; p:=1;
while a>0 do
begin
s:=s+a mod 10;
p:=p*(a mod 10);
k:=k+1;
a:=a div 10;
end;
writeln('s = ',s,' p = ',p,' sr = ',s/k:5:2);
end.
Пример:
&
<span>code = 38
s = 11 p = 24 sr = 5.50</span>
Элементы a, b, c
Если a>b, то (если а>c, то a=max, иначе c=max), иначе (если b>c, то b=max, иначе c=max)