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

Question

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

---

Answer 1

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

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

s:string;

begin

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

if y'S';

if y>y2 then s:=s+'N';

if x'W';

if x>x2 then s:=s+'E';

writeln(s);

end.