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

varv,a,b,c: real;beginwriteln ('введи длину, ширину и высоту коробки');read (a,b,c);v:=a*b*c;writeln ('объем коробки равен', v);end.