Даю 20 баллов. решите, пожалуйста на паскале

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.