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