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

А можно без x.Prinln , var x:=Range , x.Where?

обнови

я добавил 2 вариант

Спасибо огромнейшее просто!

1 способ var  a, b: integer;begin  write('Введите a: ');    readln(a);    write('Введите b: ');  readln(b);  var x := Range(a, b);  writeln('Последовательность: ');  x.Println;  writeln('Ср. ариф. неотриц чисел: ');  writeln(x.Where(x -> x >= 0).Average);end.2 способvar  a, b,i,s: integer;  k: real;begin  write('Введите a: ');    readln(a);    write('Введите b: ');  readln(b); writeln('Последовательность: ');  for i:=a to b do  write(i,' ');writeln();s:=0;for i:=a to b do    if i>=0 then begin   s:=s+i;   k:=k+1;end;writeln('Ср. ариф. неотриц чисел: '); write(s/k);end.