Вводятся целые числа 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.