Определите объ5м и площадь боковой поверхности параллелипипеда для данных вводимых с клавиатуры, - а,в,н. решите на паскале

var dlina_A, shirina_B, vysota_H:real;

begin

writeln('Введите длину основания параллелепипеда:');

read(dlina_A);

writeln('Введите ширину основания параллелепипеда:');

read(shirina_B);

writeln('Введите высоту параллелепипеда:');

read(vysota_H);

writeln('Объем параллелепипеда: ',(dlina_A*shirina_B*vysota_H));

writeln('Площадь боковой поверхности параллелепипеда: ',(2*(dlina_A*vysota_H+shirina_B*vysota_H)));

end.