написать программу по информатике объема параллелепипеда

program _1_2;uses crt;var  dlina, shirina, vysota:real;begin  ClrScr;  TextColor(14);  Writeln('Вычисление объёма параллелепипеда.');  Writeln('Введите исходные данные:');  write('Длина (см) -> ');  readln(dlina);  write('Ширина (см) -> ');  readln(shirina);  write('Высота -> ');  readln(vysota);  writeln('Объём: ',(dlina*shirina*vysota):7:2);  Repeat  Until KeyPressed;end.

program E8;

var a, b, c, v: real;

begin

writeln('введите значения длины, ширины,высоты');

readln(a,b,c);

v:=a*b*c;

writeln('v=', v:4:2);

readln;

end.