var N,x,y,s,z:integer;
begin
writeln('Введите 4-значное число');
readln(N);
x:=N div 1000;
y:=N div 100 mod 10;
s:=N div 10 mod 10;
z:=N mod 10;
writeln(x*y+s*z);
end.
