program tongbangk;
uses crt;
var A:array[1..100] of integer;
i,n,k,j,t,l:integer;
begin
clrscr;
write('Nhap so luong phan tu cua mang: '); readln(n);
writeln('NHAP GIA TRI PHAN TU CUA MANG');
for i:=1 to n do
begin
write('phan tu thu ',i,' la: ');
readln(a[i]);
end;
write('Nhap k: '); readln(k);
writeln('Cac day co tong bang ',k,' la: ');
for i:=1 to n-1 do
begin
t:=A[i];
for j:=i+1 to n do
begin
t:=t+A[j];
if t=k then
begin
for l:=i to j do
write(A[l],' ');
writeln;
end;
end;
readln
end.