program sector
implicit none
! To find the area of a sector
!We use the formular (sector angle / 360)  * (pi * radius**2)
real::perimeter,angle,radius, arc, area
real,parameter:: pi = 3.142
write(*,*)'input the sector angle'
read(*,*)angle
write(*,*)'input the radius'
read(*,*)radius
area = (angle / 360)  * (pi * radius**2)
write(*,*) 'area of a sector is = ',area
! To find the perimeter of a sector
!we use the formular r + r + arc length
write(*,*)'input arc lenght'
read(*,*) arc
perimeter = radius + radius + arc
write(*,*)'The perimeter of sector angle',angle, 'is = ', perimeter
end program sector

PROGRAM RESULT