В учебник геометрии загляни.
S(трапеции) = (a1 + a2)*h/2
(a + b)^2 = a^2 + 2*a*b + b^2 = a*a + 2*a*b + b*b
V(пар-педа) = a*b*c
Программа составляется элементарно.
1) Dim S, a1, a2, h As double
Input a1, a2, h
S=(a1+a2)*h/2
Print "S = ", S
End
2) Dim a, b, n As Double
Input a, b
n=a*a+2*a*b+b*b