Написать программу вычесления объема параллелепипеда. ниже представлен рекомендуемый вид экрана во время работы программы. введите исходные данные : длинна (см) 9 ширина (см) 7.5 высота (см) 5 объем : 337.50 куб. см

Program objem;
uses crt;
var a,b,h,v:real;
begin
writeln('Введите данные');
write('длина(см)=');readln(a);
write('ширина(см)=');readln(b);
write('высота(см)=');readln(h);
v:=a*b*h;
writeln('Объём равен ',v,' куб.см');
readkey;
end.