{ Nacitani neznameho poctu cisel z jednoho raku souboru }
Const Max = 20;
Var F : Text;
    A : Array[1 .. Max] Of Integer;
    N, X, I : Integer;
Begin
  Assign(F, 'VSTUP.TXT');
  Reset(F);

  { nacteni prvni radky }
  N := 0;
  While (N < Max) And Not Eoln(F) Do
    Begin
      N := N + 1;
      Read(F, A[N]);
    End;
  Readln(F); { odradkovani }

  { nacteni druhe radky}
  Readln(F, X);
  Close(F);

  { vypis dat }
  Writeln('X = ', X);
  Writeln('N = ', N);
  For I := 1 To N Do Writeln(A[I]);
End.