Submission #1986555

---

Source Code Expand

var
  i, n, a, b, pos, d: int64;
  s: string[4];
begin
  read(n);
  read(a);
  readln(b);
  for i := 1 to n do
  begin
    read(s);
    readln(d);
    if d < a then d := a;
    if d > b then d := b;
    if s = 'East' then pos := pos + d else pos := pos - d;
  end;
  
  if pos = 0 then
  begin
    writeln(0);
  end
  else
  begin
    if pos < 0 then
    begin
      write('West ');
    end
    else
    begin
      write('East ');
    end;
    writeln(abs(pos));
  end;
end.

Submission Info

Compile Error

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

Judge Result