Imports System
Public Module Module1
Public Sub Main()
'Calulate are if trapezium'" Area of trapezium = " & Area
Dim a, b, h As Integer
Dim Area As decimal
Console.WriteLine("Enter side a")
a = Console.ReadLine()
Console.WriteLine("Enter side b")
b = Console.ReadLine()
Console.WriteLine("Enter the height h")
h = COnsole.ReadLine()
Area = (1/2)*(a+b)*h
Console.WriteLine("Area of trapezium = " & Area)
End Sub
End Module
' pseudocode
'Integer: a, b, h
' Real: Area
'Output "Enter side a"
'Input a
'Output " Enter side b"
'Input b
'Output "Enter height h"
'Input h
'Area <-- (1/2)*(a+b)*h
'Output " Area of Trapezium= ", Area
