var input, output:text;
var m:integer;
var a:array[1..99] of integer;
begin
  assign(input, 'input.txt');
  assign(output, 'output.txt');
  rewrite(output);
  reset(input);
  read(input, m);
  readln(input, a[1]);
  for var i:= 2 to m do
  begin
    read(input, a[i]); {ошибка здесь}
  end;
  for var i:= 1 to 1 do
  begin
    write(output, a[i],' ');
  end;
  close(input);
  close(output);
end.
{Вот что в input.txt
8
2 1 4 5 6 7 8 9}