Составить метод для решения задачи: вычислить площадь поверхности прямоугольного параллелепипеда

program zz1;
var a, b, c, S:real; // задаем переменные не целого типа
begin
write(введите первую сторону прямоугольного параллелепипеда );
read(a);
write(введите вторую сторону прямоугольного параллелепипеда );
read(b);
write(введите третью сторону прямоугольного параллелепипеда );
read(c);
s:=2*(a*b+a*c+c*b);// вычисляем площадь прямоугольного параллелепипеда по формуле
write(площадь прямоугольного параллелепипеда = ,s:5:2); // выводим ответ в формате 5 символов для всего числа и два знака после точки
end.