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

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