PROGRAM Triangle
    IMPLICIT NONE
    LOGICAL :: L1, L2
    INTEGER :: side1, side2, side3
    PRINT *, "Type in the three sides:"
    READ *, side1, side2, side3
Outer: IF (2*MAX(side1, side2, side3) >= side1+side2+side3) THEN
        PRINT *, "Not a Triangle"
    ELSE Outer
        L1 = (side1 == side2)
        L2 = (side2 == side3)
        IF (L1 .AND. L2) THEN
            PRINT *, "Equilateral"
        ELSE IF (L1 .OR. L2 .OR. side1 == side3) THEN
            PRINT *, "Isoceles"
        ELSE
            PRINT *, "Scalene"
        END IF
    END IF Outer
END PROGRAM Triangle