Question

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

Answer 1

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

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

s:string;

begin

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

if y<y1 then s:=s+'S';

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

if x<x1 then s:=s+'W';

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

writeln(s);

end.