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

program zz1;

var

a, b, c, V, S: integer;

begin

writeln ('Введите сторону а'); / /вводим первую сторону параллелепипеда

read (a);

writeln ('Введите сторону b'); / /вводим вторую сторону параллелепипеда

read (b);

writeln ('Введите сторону c'); / /вводим третью сторону параллелепипеда

read (c);

V:=a*b*c; / /объем параллелепипеда

S:=2 * (a*b+a*c+c*b); / /находим площадь поверхности параллелепипеда

writeln ('Объем параллелепипеда = ', V);

writeln ('Площадь поверхности параллелепипеда = ', S); / /Выводим ответ

end.