program main implicit none integer::m,y read*, m ,y if (m == y) then write (*,*) "Drew" else if (m - y == 1 .or. y-m == 2) then write (*,*) "Lost" else if (y - m == 1 .or.m - y == 2) then write (*,*) "Won" end if stop end