В Pascal ввести с клавиатуры 20 чисел.
найти среднее арифметическое отрицательных

Program n1;var i,sum,a,k: integer;beginsum:=0;k:=0;for i:=1 to 20 dobeginreadln(a);if a<0 then beginsum:=sum+a;k:=k+1;end;end;write(sum/k);end.