Написать программу вычесления объема параллелепипеда. Ниже представлен…

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