Помогите пожалуйста. Надо программу на паскале

Var a,b,i: integer; beginread (a,b); for i: =a to b do if (i mod 2=0) then write (i,'); {Пробегаемся циклом по этим цифрам и смотрим у кого остаток от деления на 2=0, если равен значит четное и выводим это значение}end.