Найти в заданном интервале сумму всех четных чисел и среднее арифметическое всех нечетных

sm:=0;//сумма четных
sr:=0;//среднее нечетных
nc:=0;//их количество
for i:=n to k do
if i mod 2=0 then sm:=sm+i
else
 begin
  sr:=sr+i;
  nc:=nc+1;
 end;
sr:=sr/nc;

var
   a,b:integer;
begin
  repeat
  write('введите 2 числа границы интервала:');
  readln(a,b);
  until a<b;
  writeln('сумма четных:', range(a,b).Where((i:integer)->not odd(i)).Sum);
    writeln('ср. арифм. нечетных:', range(a,b).Where((i:integer)->odd(i)).Average);
  
end.

program jk;
Var sm, sr, i, k, n: integer;
begin
  repeat
  write('введите 2 числа границы интервала:');
  readln(n,k);
for i:=n to k do
sm:=0;
sr:=0;
if i mod 2=0 then sm:=sm+i
else
 begin
  sr:=sr+i;
  nc:=nc+1;
  end;
  sr:=sr/nc;
 writeln('sr:',sr);
writeln('nc:',nc);
writeln('sr:',sr);
end.

Var n,k,i,sm,nc: integer;
    sr:real;
begin
  repeat
  write('введите 2 числа границы интервала:');
  readln(n,k);
  until n<k;
sm:=0;
sr:=0;
for i:=n to k do
if i mod 2=0 then sm:=sm+i
else
 begin
  sr:=sr+i;
  nc:=nc+1;
  end;
sr:=sr/nc;
writeln('Сумма четных=',sm);
writeln('Среднее нечетных=',sr:0:2);
end.

var i, j, p, q: integer;
begin
  repeat
    write('Введите 2 числа границы интервала: ');
    readln(i, j);
  until i < j;
  p := i + i mod 2;
  q := (j - j mod 2 - p) div 2;
  writeln('Сумма четных = ', (p + q) * (q + 1));
  p := i + 1 - i mod 2;
  q := j - 1 + j mod 2;
  writeln('Среднее нечетных = ', (p + q) div 2);
  readln
end.

var i, j, p, q: integer;
begin
  repeat
    write('Введите 2 числа границы интервала: ');
    readln(i, j);
  until i < j;
  p := i + i and 1;
  q := (j - j and 1 - p) div 2;
  writeln('Сумма четных = ', (p + q) * (q + 1));
  p := i + 1 - i and 1;
  q := j - 1 + j and 1;
  writeln('Среднее нечетных = ', (p + q) shr 1);
  readln
end.