Imports System

Public Module Module1

    Public Sub Main()

        ' cauculate area pf trapezum

        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 side h ")

        h = Console.readLine()

        area = (1/2)*(a + b)*h 

        console.writeline("area of trapezum = " & 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 h"

'INPUT : h

​

'Area <-- (1/2)*(a+b)*h

​

'OUTPUT " Area of trapezium =" , Area

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​

​