Составьте программу вычисления объема, площади полной поверхности,сумму ребер прямого параллелепипеда

var a,b,c:real;

Begin

  read(a,b,c);

  writeln('V = ', a*b*c);

  writeln('S = ', 2*(a*b+b*c+a*c));

End.

Прога на Паскале

Var a,b,c:real;

Begin

Read(a,b,c);

Write('Объем=',a*b*c,' ','Площадь поверхности=',2*(a*b+a*c+b*c),

' ','Сумма ребер=', 4*(a+b+c) );

END.