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

var a,b,c,S:real; begin write('введите стороны параллелепипеда'); read(a,b,c); S:=2*(a*b+b*c+a*c); writeln('Площадь поверхности =', S); end. /////////////////////////////////////////////////////////  Создаете командную кнопку Нажимаем на нее и вводим программу ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, a=inputbox("вв длину") b=inputbox("вв ширину") c=inputbox("вв высоту параллелепипеда") S=2*(a*b+b*c+a*c) print "Площадь поверхности параллелепипеда=" S