Розробка та виконання програм на мові Pascal

uses crt;

var

l:array [1..7] of integer;

b:array [1..6] of integer;

h:array [1..8] of integer;

v:integer;

s:real;

procedure masiv(var x:array of integer;kol:integer;var vid:integer;var ser:real);

var

i:integer;

begin

clrscr;

vid:=0;

ser:=0;

writeln('Введiть елементи масива :');

writeln;

for i:=1 to kol do begin

write('Елемент x[',i,']=');

readln(x[i]);

if x[i]<0 then vid:=vid+1 else ser:=ser+x[i];

end;

ser:=ser/kol;

end;

begin

masiv(l,6,v,s);