если правильно понял
program k,i,r1,R2:integer;
s:array[1..10] of integer;
begin;
k:=0;
readln(r1);
readln(r2);
for i:=1 to 10 do read(a[i]);
for i:=1 to 10 do
if (a[i]>r1) and (a<r2) then inc(k)
write(k);
если правильно понял
program k,i,r1,R2:integer;
s:array[1..10] of integer;
begin;
k:=0;
readln(r1);
readln(r2);
for i:=1 to 10 do read(a[i]);
for i:=1 to 10 do
if (a[i]>r1) and (a<r2) then inc(k)
write(k);