#include <iostream>
#include <vector>
using namespace std;
int fibo(int n, int &cnt){
cnt++;
if(n == 1 || n == 2)
return 1;
return fibo(n-1,cnt) + fibo(n-2,cnt);
}
void solve1(){
int k = 5;
while(k--){
int n,ans = 0;
cin >> n;
cout << fibo(n,ans) << " " << ans << "\n";
}
}
void solve2(){
const int INF = 1e9 + 7;
int n, mx1 = -INF, mx2 = -INF;
cin >> n;
vector<int> a(n);
for(auto &i : a) cin >> i;
for(auto &i : a){
if(i > mx1){
mx2 = mx1;
mx1 = i;
}
else if(i > mx2)
mx2 = i;
}
cout << mx2 << " " << mx1;
}
void solve2(){
int x,cnt = 0;
for(int i = 0; i < 4; i++){
cin >> x;
cnt += (x % 6 == 0);
}
if(cnt >= 2) cout << "yes";
else cout << "no";
}
void solve3(){
int x, n, cnt = 0;
cin >> n;
for(int i = 0; i < n; i++){
cin >> x;
cnt += (x % 5 == 2);
}
cout << cnt;
}
void solve4(){
int x, n, cnt = 0;
cin >> n;
for(int i = 0; i < n; i++){
cin >> x;
cnt += (x % 7 == 3);
}
if(cnt >= 2) cout << "yes";
else cout << "no";
}
var n, sum, 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.