others/volume1/057.pas


1
2
3
4
5
6
7
8
9
10
11
12
13
14

var
  n, i, j: int16;
  a: int64;

begin
  readln(n, i);
  for j := 1 to n do
    begin
      read(a);
      if i <> j then
        write(a, ' ')
    end;
  writeln
end.