Из массива A[1 .. N] получить массив В, в который войдут только отрицательные элементы массива А.

Просто запусти)

только в конце end. лишний

program lal;const N=5;var i,d:integer;a:array[1..N] of integer;b:array[1..N] of integer;begind:=1;for i:=1 to N do readln(a[i]);for i:=1 to N dobeginif a[i]<0 then beginb[d]:=a[i];d:=d+1;end;end;for i:=1 to d-1 do write(b[i],' ');end.