Программа паскаль: которая ищет минимальное число, больше 21, которое делится на 7 и оканчивается на 1.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=21;
  repeat
    n+=1
  until (n mod 7=0) and (n mod 10=1);
  n.Println
end.

Результат
91

Допустим, Соня разбила окно
тогда говорят правду: Миша, Оля и Рома

Допустим, Миша
тогда говорят правду: Миша, Оля и Коля

Допустим, Володя
тогда говорят правду: Соня, Володя, Оля, Коля

Допустим, Аня
тогда говорят правду: Миша, Аня

{просто чтобы убедиться, что решение единственно}

Допустим, Оля
тогда говорят правду: Миша, Оля, Рома

Допустим, Рома
тогда говорят правду: Миша, Оля, Коля

Допустим, Коля
тогда говорят правду: Миша, Оля, Коля, Толя

Допустим, Толя
тогда говорят правду: Миша, Оля, Коля

Действительно, только в одном варианте истинны два высказывания
-> Аня разбила окно

436 в 8 = 4∙8^2+3∙8^1+6∙8^0 = 256+24+6 = 286 в 10 
286 в 10 = 100011110 в 2, вот как получилось (надо решать столбиком)
286/2=143 (остаток 0 )
143/2=71 (остаток 1 )
71/2=35 (остаток 1 )
35/2=17 (остаток 1 )
17/2=8 (остаток 1 )
8/2=4 (остаток 0 )
4/2= 2 (остаток 0 )
2/2=1 (остаток 0 )
286 в 10 = 100011110 в 2
286 в 10 = 11Е в 16 (решается тоже столиком)
286/16=17 (остаток 14) 14=Е
17/16=1 (остаток 1) и получается
286 в 10 = 11Е в 16
436 в 8 = 100011110 в 2 = 11Е в 16
2) 2DF в 16 = 2∙16^2+13∙16^1+15∙16^0 = 512+208+15 = 735 в 10 
735 в 10 = 1011011111 в 2 (решается столбиком)
735/2=367 (остаток 1)
367/2= 183 (остаток 1)
183/2=91 (остаток 1)
91/2=45 (остаток 1)
45/2=22 (остаток 1)
22/2=11 (остаток 0)
11/2=5 (остаток 1)
5/2=2 (остаток 1)
2/2=1 (остаток 0)
735 в 10 = 1011011111 в 2
735 в 10 = 1337 в 8 (решается столбиком)
735/8=91 (остаток 7)
91/8=11 (остаток 3)
11/8=1 (остаток 3)
735 в 10 = 1337 в 8
2DF в 16 = 1011011111 в 2 = 1337 в 8