uses crt;
var n: array[1..200] of integer;
d: array[1..100] of integer;
c: array[1..100]of integer;
a,i,k,j,s,dem: integer;
begin
clrscr;
repeat
clrscr;
write ('nhap so phan tu: '); readln (a);
if a>200 then writeln ('Dieu kien a<=200');
until a<=200;
for i:=1 to a do
begin
write ('nhap n[',i,']: '); readln (n[i]);
end;
write ('cac phan tu chia het cho 3: ');
for i:=1 to a do
if n[i] mod 3=0 then write (n[i],' ');
write ('nhap k: '); readln (k);
for i:=1 to a do
for j:=i to a do
begin
s:=s+n[i];
if s=k then
begin
dem:=dem+1;
d[dem]:=i;
c[dem]:=j;
end;
end;
if (d[1]<>0) and (c[1]<>0) then writeln ('khong co day con nao co gia tri bang ',k)
else
begin
write ('cac day con co gia tri bang ',k,' la: ');
for j:=1 to dem do
for i:=d[i] to c[i] do write (n[i],' ');
end;
readln;
end.