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

var a,b,i,k: integer; begin read(a,b); k:=0; for i:=a to b do begin if i mod 2=0 then k:=k+1; if i mod 2=0 then writeln ('i=',i); end; writeln ('k=',k); end.