vararr: array[-10..-1] of integer;i: integer;beginfor i := -10 to -1 dobeginarr[i] := i;end;
for i := -10 to -1 dobeginif arr[i] mod 2 = 0 thenbeginwriteln(arr[i]);end;end;end.
var
arr: array[-10..-1] of integer;
i: integer;
begin
for i := -10 to -1 do
begin
arr[i] := i;
end;
for i := -10 to -1 do
begin
if arr[i] mod 2 = 0 then
begin
writeln(arr[i]);
end;
end;
end.