Даны длина, ширина и высота прямоугольного параллепипеда, определить объем, площадь поверхности и длину всех рёбер.

Помогите по написанию программы на Pascal ABC

Var

a, b, h, V, S, L: real;

begin

Write ('Задайте через пробел длину, ширину и высоту параллелепипеда: ') ;

Readln (a, b, h) ;

V : = a * b * h;

S : = 2 * (a * b + a * h + b * h) ;

L : = 4 * (a + b + h) ;

Writeln ('V=', V:0:4, ', S=', S:0:4, ', L=', L:0:4)

end.

Тестовое решение:

Задайте через пробел длину, ширину и высоту параллелепипеда: 3 4.5 6.7

V=90.4500, S=127.5000, L=56.8000