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

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); / / выводим ответ в формате пять знаков для всего числа и два знака после точки

end.