Submission #3134388

---

Source Code Expand

var
	n,a,b,i,c,x:Longint;
	s:String[4];
begin
	readln(n,a,b);
	for i:=1 to n do begin
		readln(s,c);
		if c>b then c:=b;
		if c<a then c:=a;
		if s='West' then c:=-c;
		inc(x,c);
	end;
	if x>0 then write('East ')else if x<0 then write('West ');
	writeln(abs(x));
end.

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result