var count, i :integer;
begin
write('Четные отрицательные числа отрезка [-17, 20]: ');
for i := -17 to 20 do
if (i mod 2 = 0) and (i < 0) then
inc(count);
print(i, ' ');
end;
writeln();
write('Их количество: ', count);
end.
var count, i :integer;
begin
write('Четные отрицательные числа отрезка [-17, 20]: ');
for i := -17 to 20 do
begin
if (i mod 2 = 0) and (i < 0) then
begin
inc(count);
print(i, ' ');
end;
end;
writeln();
write('Их количество: ', count);
end.