---

Program Task10;
Var a, b, c, V, edgesSum, surface: real;
Begin
  Write('Введите a, b, c: ');
  Readln(a, b, c);
  V := a * b * c;
  edgesSum := 4 * (a + b + c);
  surface := 2 * (a*b + a*c + b*c);
  Writeln('Объем: ', V:0:2);
  Writeln('Сумма длин ребер: ', edgesSum:0:2);
  Writeln('Площадь поверхности: ', surface:0:2);
End.