{* Сумма и произведение цифр числа *}

Unit PAS49014;
Interface
Implementation
Begin
 writeln('Сумма и произведение цифр числа');
End.

Program pas49014;

Uses pas49014.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  n    : integer;
  sum  : integer;
  mult : integer;
Begin
  write('Enter number: ');
  readln(n);
  sum := 0;
  mult := 1;
  While n > 0 Do
  Begin
    sum := sum + n Mod 10;
    mult := mult * (n Mod 10);
    n := n Div 10
  End;
  writeln('Sum Of digits = ', sum);
  writeln('Multiplication Of digits = ', mult);
  readln
End.