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

var

v,a,b,c: real;

begin

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

read (a,b,c);

v:=a*b*c;

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

end.