0
Объяснение:
program qwer;
var a, m, c, f, x, v :integer;
var h:real;
begin
read(a);
m:=a mod 10;
c:=a mod 10 div 10;
f:=a div 100;
x:=m*c*f;
v:=m+c+f;
h := x/v;
print(h)
end.
