Написать программу c использованием div и mod , ! найти сумму чётных чисел в интервале (a,b).

//Pascal
var
  a, b, i, s: integer;

begin
  writeln('Введите левую границу диапазона');
  readln(a);
  writeln('Введите правую границу диапазона');
  readln(b);
  s := 0;
  for i := a to b do
    if i mod 2 = 0 then s := s + i;
  writeln('Сумма четных:', s);
end.