1)var
2)m,n:integer;
3)begin
4)writeln('vvedite chisla(n>=m)');
5)repeat
6)readln(n);
7)readln(m);
8)until m >= n;
9)while m >= n do begin
10) if n mod 2 = 0 then writeln(n);
11) n:=n+1;
12)end;
13)end.
Объяснение:
