Написать программу которая выводит на экран все отрицательные четные числа из диапазона a и b на паскале ​

program Vyv;

var a,b,i:integer;

begin

write('Введите начало диапазона a = ');

readln(a);

write('Введите конец диапазона b = ');

readln(b);

for i:=a to b do

if (i<0) and (i mod 2 = 0) then write(i,' ; ')

end.