помогите с написание программы вычисления объёма,площади поверхности,длины рёбер прямоугольного параллепипеда на языке Паскаль (всё в одной программе пожалуйста)

Сорян, если не правильно понял условие задачиprogram Parallepiped;var a,b,c,v,s:real; beginwriteln('Введите длину рёбер параллепипеда ');read(a,b,c);v:=a*b*c;s:=2*(a*c+c*b+a*b);write('Площадь поверхности = ',s,', а объём = ',v);                    end.