Răspuns :

Răspuns:

program numere;

var

   a:integer;

   b:integer;

   i:integer;

begin

 readln(a,b);

 for i:=a to b do

 begin

   if i mod 2 = 0 then

    writeln(i);

 end

end.

Explicație:

ID Alte intrebari