Решить в Паскаль
Дана не пустая последовательность неотрицательных целых чисел, оканчивающаяся отрицательным числом. Найти среднее арифметическое всех чисел последовательности (без учета отрицательного числа).

1. Современное решение (быстро, просто и легко)// PascalABC.NET 3.2, сборка 1439 от 09.05.2017// Внимание! Если программа не работает, обновите версию!begin  Writeln('Ср.арифм: ',ReadSeqRealWhile(k->k>=0).Average:0:4)end.Пример23 11.7 0 12.9 16.7 13 -12Ср.арифм: 12.88332. Школьный вариант в стиле "1983г." (Turbo Pascal 7.0)uses Crt;var  n:integer;  x,a:real;begin  a:=0;  n:=0;  repeat    Read(x);    if x>=0 then begin      n:=n+1;      a:=a+x      end  until x<0;  a:=a/n;  Writeln('Ср.арифм: ',a:0:4);  ReadKeyend.