{* Трапеции *}

REM basic

' Трапеции


SCREEN 7
CLS
COLOR 15, 9
INPUT "DLINA OSNOVANIYA a ", a
INPUT "DLINA OSNOVANIYA b ", b
INPUT "DLINA VYSOTY h ", h
If (a) Or (b) Or (h) < 0 Then PRINT "NET RESHENIYA{: GoTo 1
}s = (1 / 2) * (a + b) * h
PRINT {PLOSHAD{ TRAPECII RAVNA  ", s
}}End
1 End