Question

с клавиатуры вводиться длина ширина и высота коробки найти его обьем

Answer 1

var

v,a,b,c: real;

begin

writeln ('введи длину, ширину и высоту коробки');

read (a,b,c);

v:=a*b*c;

writeln ('объем коробки равен', v);

end.