// Pascal ABC.NET var n, digit : integer; mult : integer := 1; sum, count : integer;
begin readln(n); while n <> 0 do begin digit := n mod 10; inc(count); if count mod 2 = 1 then sum += digit else mult *= digit; n := n div 10; end; writeln('Summa is ', sum); writeln('Multiplication is ', mult); end.
var
n, digit : integer;
mult : integer := 1;
sum, count : integer;
begin
readln(n);
while n <> 0 do begin
digit := n mod 10;
inc(count);
if count mod 2 = 1 then
sum += digit
else
mult *= digit;
n := n div 10;
end;
writeln('Summa is ', sum);
writeln('Multiplication is ', mult);
end.