uses crt;
var i,j,n,t,s,d,c:longint; a:array[1..1000000]of longint;
begin
clrscr;
write('Nhap N,S (N<=20): ');readln(n,s);
for i:=1 to n do
begin
write('A[',i,']= ');readln(a[i]);
t:=0;
for j:=i downto 1 do
begin
t:=t+a[j];
if t=s then begin d:=j; c:=i; end;
end;
end;
for i:=d to c do write(a[i],' ');
readln
end.