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

Нужно составить программу в паскале.

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.