Задание 6 ЕГЭ

//Определите, при каком наименьшем введённом значении переменной s
//данная программа выведет число 106.
###
(1..10000).Wh(s-> begin //в начале диапазон, где проверка
  s:=s div 7;
  var n:=1;
  while s < 255 do begin
    if (s+n) mod 2 = 0 then
      s:=s + 11;
      n:=n +5;
  end;
  Result:= n=106;end).First.Pr //First для первого числа