program shapefind 

implicit none
integer :: a,b,c,d,e 

print*,"enter the four sides "
read*,a,b,c,d
print*,"enter any one angel "
read*,e 

if(a.EQ.c.and.b.EQ.d.and.b.EQ.c.and.e.EQ.90)then 
print*,"this is a square " 
elseif(a.EQ.c.and.b.EQ.d.and.b.EQ.c.and.e.NE.90)then 
print*,"this is a rhombus " 
elseif(a.EQ.c.and.b.EQ.d.and.b.NE.c.and.e.EQ.90)then 
print*,"this is a rectangle " 
elseif(a.EQ.c.and.b.EQ.d.and.b.NE.c.and.e.NE.90)then 
print*,"this is a parallelogram " 
else 
print*,"this is other type of shape " 
endif 

end program