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

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