uses crt;
var i,m,k,num:integer;
x:array[1..10000] of integer;
t:array[1..10000] of integer;
begin;
clrscr;
writeln('Введите размер массива x(m)');
readln(m);
FOR i := 1 TO m do
begin
clrscr;
writeln('Введите элементы массива x(m)');
readln(x[i]);
clrscr;
end;
writeln('Введенный массив');
FOR i := 1 TO m do
begin
writeln (x[i]);
IF x[i] >= 0 THEN
 begin
 num := num + 1; k := k + 1; t[k] := x[i];
end;
end;
writeln('Сформированный массив');
FOR i := 1 TO k do
begin
writeln (t[i]);
end;
writeln('Количество элементов в сформированном массиве ', num);
end.