Вывести на экран последовательность четных чисел от -30 до +30 (на паскале)

var i:integer; begin for i:=-30 to 30 do if i mod 2 = 0 then  write(i,' ');end.