Интернет.
Интернет-популярное средство обмена информацией среди милионов пользователей.Ежедневно интернетом пользуются больше 2 млрд пользователей по всему миру,и с каждым годом пользователей становиться всё больше и больше.В дальнейшем будущем,почти не останется человека,который бы не пользовался интернетом.Но в этом есть и плохое,изобретая всё новые и новые инновации,человечество уже не будет ходить в магазины,делать покупки,гулять,за них всё будет делать техника и интернет.В итоге все действия превратяться в виртуальные.Всё же переборщять с интернетом не стоит.
var n,sum,p: integer;
begin
readln(n);
sum:=0;
p:=1;
while n<>0 do
begin
sum:=sum+n mod 10;
p:=p*(n mod 10);
n:= n div 10;
end;
writeln('сумма цифр: ',sum);
write('произведение: ',p);
end.