{* Задача359 *}

REM basic

' Написать программу для нахождения площади полой прямой призмы с трапецией в основании.


 
1 :
PRINT "Vvedite osnovanija trapecii:"
INPUT a, c
PRINT "Vvedite storony trapecii:"
INPUT b, d
PRINT "Vvedite vysotu trapecii:"
INPUT l
PRINT "Vvedite vysotu prismy:"
INPUT h
If ABS(a - c) > (b + d) Then PRINT "Figura ne suzhestvuet! Vvedite parametry zanovo!": GoTo 1:
 
 
STRAP = 1 / 2 * (a + c) * l
SSTEN = a * h + b * h + c * h + d * h
S = STRAP + SSTEN
PRINT S
 End