Составьте программу ввода элементов массива b[1..6] с клавиатуры и вывода на экран элементов с положительными значениями.

Var A:array[1..100] of Integer;
i,N:integer;
begin
Readln(N);
For i:=1 to N do
Readln(A[i]);
For i:=1 to N do
If A[i]>=0 then
Write(A[i],' ');
end.