.Помогите составить программу на паскале:)
Для десяти чисел введенных с клавиатуры все отрицательные сложить а положительные умножить

Первое число не обрабатывается

var a,b,c,d:integer;beginwriteln('введите 10 чисел');readln(a);b:=1;d:=0;c:=0;while (c<>9) dobeginc:=c+1;if (a > 0) then b:=b*a;readln(a);if (a < 0) then d:=d+a;end;writeln('положительные ',b);writeln('отрицательные ',d)end.

а вот так проверяет

и всё работает, автор приношу извинение за первую ошибку

Спасибо огромное ! Выручили:3

var a,b,c,d:integer;beginwriteln('введите десять чисел');readln(a);b:=1;d:=0;for c:=2 to 10 dobeginreadln(a);if (a > 0) then b:=b*a;if (a < 0) then d:=d+a;end;writeln('положительные ',b);writeln('отрицательные ',d)end.

const  N = 10;var  x, i, minus, plus:integer;begin  plus:=-1;  minus:=0;  for i:=1 to N do  begin    readln(x);    if x<0 then      minus:=minus+x;    if x>0 then      if plus = -1 then              plus:=x      else        plus:=plus*x;  end;  writeln('Сумма отрицательных чисел: ', minus);  if plus = -1 then    writeln('Положительных чисел нет')  else   writeln('Произведение положительных чисел:', plus);end.