program vytok;
var A,B:word;
begin
  A:=1;
  writeln('Jaký je počet sběrných míst?');
  readln(B);
  while A<B do
    begin
      write(A,'->',B,': ');
      if readkey='A' then
        begin
          writeln('Ano'); inc(A)
        end
      else
        begin
          writeln('Ne'); dec(B)
        end;
  writeln('Odtok je v místě ',A,'.');
end.