Задано два целых числа A и B. Найдите сумму четных чисел от A до B.

У мения примерно есть Даны два целых числа A и B (A < B). Найти сумму всех целых чисел от A до B включительно Program z(output); var i:integer; sum:integer; A:integer; B:integer; begin A := 5; B := 6; sum := 0 ; for i := A to B do begin sum := sum + i; end; writeln(sum); end.