Это в паскале. первая : дана последовательность чисел,оканчивающихся отрицательным числом. найти среднее арифметическое введенных положительных чисел. и вторая: дана последовательность чисел,количество которых заранее не известно. сколько чисел было введено до первого нуля? буду ,если ответите.

{1}

var a,n,s: integer;
begin
 n := 0;
 s := 0;
 read(a);
 while a >= 0 do
  begin
  s := s + a;
  n := n + 1;
  read(a)
  end;
 write(s/n)
end.

{2}

var a,n: integer;
begin
 n := 0;
 read(a);
 while a <> 0 do
  begin
  n := n + 1;
  read(a)
  end;
 write(n)
end.