Помогите решить, очень срочно

Question

Помогите решить, очень срочно

---

Answer 1

Var a,b,c,m:integer;p:real;
begin
readln(a,b,c);
m:=a;
if b < m then
m:=b;
if cm:=c;
p:=(a*b*c)/m;
writeln(p);
end.