Question

Составить программу для вывода на экран четных чисел от - 20 до 20

Answer 1

1 3 5 7 9 11 13 15 17 19

Answer 2

Var i: Integer;
Begin  for i := -20 to 20 do
    if i mod 2 = 0 then write(i,' ');
End.