Даны два целых числа a и b(вводятся с клавиатуры).найти и вывести сумму четных чисел от a до b-это тема паскаля сложная кто-нибудь .

Uses crt;
var
a,b,i,k: longint;
begin
writeln('введите 2 числа');
read (a,b);
k:=0;
for i:=a to b do
if i mod 2 = 0 then
k:=k+i;
writeln(сумма четных чисел от  ', a,'  до  ', b,'  равна  ',k)
end.