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"
    ELSEIF(A.EQ.B .AND. B.EQ.C .AND. C.EQ.D .AND. ANG.NE.90) THEN
    PRINT *,"RHOMBUS"
    ELSEIF(A.EQ.C .AND. B.EQ.D .AND. ANG.EQ.90) THEN
    PRINT *,"RECTANGLE"
    ELSEIF(A.EQ.C .AND. B.EQ.D .AND. ANG.NE.90) THEN
    PRINT *,"PARALLELOGRAM"
    ELSE
    PRINT *,"ANY OTHER TYPE"
    ENDIF
END program main