Если n учеников не понимает материала, тогда учитель начнет спрашивать от n до 1 и если n-ому понятно, то он спросить n-1, если и тому понятно, то n-2, когда же он дойдет до тех кому не понятно, он начнет объяснять. Я это представляю себе так:
n - кол-во учеников, k - понимание материала,  <> - не равно
for i:=n downto 1 do
if n<>k then begin
n:=k;
end;