Унифокальная функциональная автономия щитовидной железы представляет собой: Тиреотоксическую аденому - Узловую форму диффузного токсического зоба

если правильно понял

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);