Помогите решить! Олимпиада по информатике

ниже решение - давай другие задачи)

var x1,y1,x2,y2,x,y:integer;

s:string;

begin

readln(x1,y1,x2,y2,x,y);

if ylt;y1 then s:=s+S;

if ygt;y2 then s:=s+N;

if xlt;x1 then s:=s+W;

if xgt;x2 then s:=s+E;

writeln(s);

end.