Паскаль, пожалуйста помогите. Составить программу. Задача: Найти поверхность и объём...

Question

Паскаль, пожалуйста помогите.
Составить программу.
Задача: Найти поверхность и объём прямого параллелепипеда.

Answer 1

Var
  a, b, c: integer;

begin
  write('Введите 3 стороны: ');
  read(a, b, c);
  writeln('S = ', 2 * (a * b + a * c + b * c));
  writeln('V = ', a * b * c);
end.

Answer 2

//Сделал Лугачев Кирилл
//Нахождение объёма и полной поверхности параллелепипеда
//Все данные вводяться во время работы программы
//с клавиатуры
program Bulk;
var  a, b, c: integer; // высота ширина длина 
S, V: double;// Площадь, Объём
begin 
write('Введите 3 стороны: '); 
read(a, b, c);  S := 2 * (a * b + a * c + b * c); 
V := a * b * c;   
writeln('Площадь поверхности: ', S); 
writeln('Объём: ', V);  
end.