uses crt;
var n,i,d : integer;
a : array[1..100] of longint;
procedure nhap(n : integer);
begin
write('Nhap n :'); readln(n);
d:=0;
for i:=1 to n do begin
write('Nhap a[',i,']='); readln(a[i]);
end;
for i:=1 to n do if a[i]>0 then d:=d+1;
writeln('So lung phan tu duong :',d);
for i:=1 TO n do if a[i]>0 then write(a[i]:3);
end;
begin clrscr;
nhap(n);
readln
end.