Question

Помогите с заданиями по информатике

Answer 1

Var  a, b: integer;
begin
  writeln('Введите два целых числа:');
  readln(a, b); 
  for a := a to b do
    if a mod 2 = 0 then writeln(a)
end.