Вычислить сумму чётных чисел на отрезке от A до B

Решить на языке Pascal

Var a, b, s, i:integer;

begin

write ('Введите начало отрезка: ');

readln (a);

write ('Введите конец отрезка: ');

readln (b);

s:=0;

for i:=a to b do begin

if i mod 2 = 0 then s:=s+i;

end;

write ('Сумма четных чисел на отрезке: ', s);

readln;

end.