Ответ: //PascalABC.NET 3.2 сборка 1318Var  x1,y1,x2,y2,x,y,x3,y3,x4,y4:integer;beginread(x1,y1,x2,y2,x,y);x3:=x1;y3:=y2;x4:=x2;y4:=y1;if (x<x1) and (y<=y3) and (y>=y1) then writeln(‘W’) elseif (x<x1) and (y>y3) then writeln(‘NW’) elseif (x>=x1) and (x<=x2) and (y>y3) then writeln(‘N’) elseif (x>x2) and (y>y3) then writeln(‘NE’) elseif (x>x2) and (y<=y2) and (y>=y4) then writeln(‘E’) elseif (x>x2) and (y<y4) then writeln(‘SE’) elseif (x<=x4) and (x>=x1) and (y<y4) then writeln(‘S’) elseif (x<x1) and (y<y1) then writeln(‘SW’);end.Пример ввода:-2 1 4 4 -3 5Пример вывода:NW