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

Сорян, если не правильно понял условие задачи

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