program phuongt;
uses crt;
var B: array[1..500] of integer;
n, i: integer;
begin
clrscr;
write('Nhap n phan tu: '); readln(n);
for i:=1 to n do
begin
write('B[',i,'] = '); readln(B[i]:4);
end;
write('Cac phan tu duong trong mang B la: ');
for i:=1 to n do if B[i]>0 then write(B[i]);
readln
end.