Даны длины ребер a,b,c прямоугольного параллелипипеда. Найти его объем V = abc и площадь поверхности S = 2(ab+bc+ac)

Program Begin6;
Var
a,b,c,V,S:Real;
Begin
ReadLn(a,b,c);
WriteLn('V = ',a*b*c:6:3);
WriteLn('S = ',2*(a*b + b*c + a*c):6:3);
ReadLn;
End.

автор: Sklyarov Sergej a.k.a. S9