Написать программу вычисления среднеарифметического последовательно вводимых целых чисел, пропуская отрицательные, с окончанием по вводу признака конца.

var a,b,k,s:integer;  Begin  writeln ('Сколько всего будет чисел?'); readln (a); writeln ('Вводите числа по одному через enter'); for b:=1 to a do begin readln (k);  if k>0 then S:=S+k; end; writeln(S/a);  end.