var i,a,b,y,l:longint; begin for i:=1 to 3 do begin read(a,b); if a>b then inc(y) else inc(l); end; if y>l then write('yangguang') else write('leiting'); end. /************************************************************** Problem: 1720 User: admin Language: Pascal Result: Wrong Answer ****************************************************************/