это алгоритм
но площадь ещё не знаю как надеюсь алгоритм
CLS
INPUT "Vvedite verhnee osnovanie a: ", a
INPUT "Vvedite nizhnee osnovanie b: ", b
INPUT "Vvedite vysotu h: ", h
S = h * (a + b) / 2
SCREEN 7
Yn = 25
m = 17
COLOR 5
LINE (160 - (a / 2) * m, Yn)-(160, Yn)
LINE (160, Yn)-(160 + (a / 2) * m, Yn)
COLOR 8
LINE (160 - (b / 2) * m, Yn + h * m)-(160, Yn + h * m)
LINE (160, Yn + h * m)-(160 + (b / 2) * m, Yn + h * m)
COLOR 6
LINE (160, Yn)-(160, Yn + h * m)
COLOR 9
LINE (160 - (a / 2) * m, Yn)-(160 - (b / 2) * m, Yn + h * m)
LINE (160 + (a / 2) * m, Yn)-(160 + (b / 2) * m, Yn + h * m)
COLOR 5
LOCATE 3, 17
PRINT "a ="; a
COLOR 6
LOCATE 12, 22
PRINT "h ="; h
COLOR 8
LOCATE 24, 17
PRINT "b ="; b;
COLOR 10
PRINT " S ="; S
COLOR 4
