Пользователь вводит значение длины , ширины и высоты прямоугольного параллелепипеда. программа вычисляет площадь поверхности о объем данного параллелепипеда.
Var a,b,c,V,S:real; begin writeln('введите через пробел стороны параллелепипеда a,b,c:'); read(a,b,c); S:=2*(a*b+b*c+a*c); V:=a*b*c; writeln('площадь поверхности равна=', S); writeln('Объем равен=',V); end.
begin
writeln('введите через пробел стороны параллелепипеда a,b,c:');
read(a,b,c);
S:=2*(a*b+b*c+a*c);
V:=a*b*c;
writeln('площадь поверхности равна=', S);
writeln('Объем равен=',V);
end.