Ответ:
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.