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