var i,j,k,n,m,s,t,sa1,sa2:longint;
a,b:array[1..100000]of real;
x,y:real;
begin
read(n,s,t);
for i:=1 to n do
read(a[i],b[i]);
for i:=1 to n do
begin
x:=0;
y:=t;
repeat
x:=x+a[i];
if x>=s then
break;
y:=y+b[i];
until (x>=s)or(y>=s);
if x>=s then
sa1:=sa1+1
else
sa2:=sa2+1;
end;
writeln(sa1);
writeln(sa2);
if sa1>sa2 then
writeln('LEO')
else
writeln('MARS');
end.
( ) |