Язык - pascal. даны натуральные числа n,. составьте программу,которая вычисляет сумму тех элементов последовательности a1, an,которые нечетны и отрицательны

Берешь массив с числами и делаешь проверку для каждого числа (в цикле):
for i:=0 to N do
begin
 if(massiv[i] < 0) and (massiv[i] mod 2 <> 0) then
  summa:=summa+massiv[i];
end;

где i и summa - переменные (объявить в var как integer), в самом начале переменной сделать summa:=0;