{* Задача 158 *}

Unit ZADACH158;
Interface
Implementation
Begin
 writeln('Дан массив А(N) и число М. Найти такое множество элементов A(i1), A(i2),...A(ik) (1<=i1<...');
End.

Program pas13634;

Uses zadach158.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  i : longint;
  j : longint;
  s : longint;
  m : longint;
  n : longint;
  a : Array[1..30] Of integer;
Begin
  clrscr; {* Очищаем экран *}
  write('m=');
  readln(m);
  write('n=');
  readln(n);
  For i := 1 To n Do {* Переменная i увеличивается с 1 до n *}
  Begin
    write('a[', i, ']=');
    readln(a[i]);
  End;
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  Begin
    s := s + a[i];
    If s = m Then
      For j := 1 To i Do {* Переменная j увеличивается с 1 до i *}
        write(' ', a[j]);
  End;
  readln; {* Ждем подтверждения пользователя *}
End.