program triangle
implicit none
! To find the area of a triangle
!We use the formular 1/2base*height
real :: b , h , a
write(*,*)'input the base'
read(*,*)b
write(*,*)'input the height'
read(*,*)h
a = 0.5 * b * h
write(*,*)'The area of triangle is = ',a
end program triangle

PROGRAM RESULT
 

DOWNLOAD PDF