Excel. составьте формулу для определения точек, принадлежащих выделенной области

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.

Загадки: в этом заведении                все перебывали               двоечники,гении               отметки получали               учились здесь артисты               певцы,артиллеристы               сюда хожу и я,               и вы,мои друзья(школа)                     что же за предмет такой,               девчонки и мальчишки?               для каждого он-дорогой               что это   (записная книжка)                               через поле и лесок подается голосок               он бежит по -               скажешь здесь а слышно там (телефон)