Помогите написать программу на языке Паскаль для нахождения среднего значения из

var

a,b,c,d,e:integer

begin

read(n);

for c:=1 to n

begin

read(a);

b:=a+b

e:=1+e

end;

write(b/e);

end.

var n,i,a,s:integer;

begin

write('n=');

readln(n);

s:=0;

writeln('Введите ',n,' целых чисел');

for i:=1 to n do

begin

 readln(a);

 if alt;0 thn s:=s+a;

end;

write('Сумма отрицательных=',s);

end.