//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var a:=ReadInteger('введите число a=').ToString();
writeln('сумма цифр: ',a[1].ToDigit()+a[2].ToDigit()+a[3].ToDigit()+a[4].ToDigit());
write('произведение: ',a[1].ToDigit()*a[2].ToDigit()*a[3].ToDigit()*a[4].ToDigit());
end.
3, оттенок чуть-чуть другой.
билет#5
у=2+3х+2у
у+2у+3х+2
3у+3х+2