program rectangle
! To calculate area and perimeter of a rectangle 
implicit none 

! Variable Declarations
real :: l ! length
real :: b ! breadth
real :: area, peri 
print*, "enter the values of l,b"
read*, l,b 

area = l*b
peri = 2*(l+b)
print*, "area", area 
print*, "perimeter", peri
end program rectangle