Verified answer

var a:array[1..100] of integer;

i,s,n,m:integer;

BEGIN

  randomize;

  read(n,m);

  for i := 1 to 100 do

  begin

     a[i]:=random(m-n) +n;

     if (i mod 2 =0) and (a[i] mod 2 = 0) then s:=s+1;

  end;

  writeln(s);

END.

var a:array[1..100] of integer;

i,s,n,m:integer;

BEGIN

randomize;

read(n,m);

for i := 1 to 100 do

begin

a[i]:=random(m-n) +n;

if (i mod 2 =0) and (a[i] mod 2 = 0) then s:=s+1;

end;

writeln(s);

END.