var n,s,p,max:integer;
begin
p:=1;
max:=0;
s:=0;
write('Введите число ');
readln(n);
While(n>0) do begin
s:=s+(n mod 10);
p:=p*(n mod 10);
if ((n mod 10) > max) Then max:= n mod 10;
n:=n div 10;
end;
write('сумма всех цифр ',s,' произведение цифр ',p,' маскимальное число ',max);
end.
