Написать программу к задаче: Дано число. Найти сумму и произведение его цифр.

Program n1;var n,sum,p: integer;beginreadln(n);sum:=0;p:=1;while n<>0 dobeginsum:=sum+n mod 10;p:=p*(n mod 10);n:= n div 10;end;writeln('сумма цифр: ',sum);write('произведение: ',p);end.