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

Question

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

Answer 1

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