Помогите с №13 программой

Question

Помогите с №13 программой

---

Answer 1

Var a,b,c:real;
begin
read(a,b,c);//стороны прямоугольников
write(a*b*c/6);
end.