var a,b,i,s:integer;
begin
writeln('введите 2 числа');
readln(a); readln(b);
s:=0;
if a<b then
for i:=a to b do
if i mod 2 = 0 then
s:=s+1;
end;
if a>b then
for i:=b to a do
writeln(s)
end.
var a,b,i,s:integer;
begin
writeln('введите 2 числа');
readln(a); readln(b);
s:=0;
if a<b then
for i:=a to b do
begin
if i mod 2 = 0 then
s:=s+1;
end;
if a>b then
for i:=b to a do
begin
if i mod 2 = 0 then
s:=s+1;
end;
writeln(s)
end.