Решить "напишите эффективную программу, которая по двум данным натуральным числам а и б не превосходящим 30 тысяч подсчитывает количество чётных натуральных чисел на отрезке а и б , включая концы отрезка

var a,b,i,s:integer;

begin

writeln('введите 2 числа');

readln(a); readln(b);

s:=0;

if a<b then

for i:=a to b do

  begin

  if i mod 2 = 0 then

  s:=s+1;

  end;

if a>b then

for i:=b to a do

  begin

  if i mod 2 = 0 then

  s:=s+1;

  end;

writeln(s)

end.