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