program main
implicit none
    integer :: a,b,c,d,ang
    print *,"enter 4 sides"
    read *,a,b,c,d
    print *,"enter angle"
    read *,ang
    if (a.eq.b .and. b.eq.c .and. c.eq.d .and. ang .eq. 90) then
    print *,"square"
    else if (a.eq.b .and. b.eq.c .and. c.eq.d .and. ang .ne. 90) then
    print *,"rhombus"
    else if (a.eq.c .and. b.eq.d .and. ang .eq. 90) then
    print *,"rectangle"
    else if (a.eq.c .and. b.eq.d .and. ang .ne. 90) then
    print *,"parallelogram"
    else
    print *,"any other type"
    endif
end program main