if (e.GT.m.or.r.GT.n.or.t.GT.v) then {
    write(*,*) 'mozhnososttreugolnik'
} else {
    if (e.LE.m.or.r.LE.n.or.t.LE.v) then
    write(*,*) 'nelzyasosttreugolnik'
        if (p.EQ.y.or.s.EQ.u.or.d.EQ.i) then
            write(*,*) 'treugolnikpryamougolnyi'
        else
            if (p.LT.y.and.s.LT.u.and.d.LT.i) then
                write(*,*) 'treugolnikostrougolnyi'
            else
                if (p.GT.y.and.s.GT.u.and.d.GT.i) then
                    write(*,*) 'treugolniktupougolnyi'
                end if
            end if
        end if
    end if
} end if
end program