Ученик бежит по кругу. На старте стоит тренер и перед каждым новым кругом спрашивает ученика : "Пробежишь еще кружочек?" Подсчитать количество кругов 

uses   GraphABC; var   bool: string;   circle: byte; begin   Line(window.Center.X, window.Center.Y, window.Width - 10, window.Center.Y);   repeat     circle += 1;     writeln('Бежим...');     for i: byte := 0 to 11 do     begin       arc(window.Center.X, window.Center.Y, circle * 2 + 20, i * 30, (i + 1) * 30);       System.Threading.Thread.Sleep(20);     end;     writeln('Пробежишь ещё кружочек?');     repeat       readln(bool);       if (bool in ['да', 'нет']) then         break       else         writeln('Что?! Я не расслышал!');     until (false);   until (not (bool = 'да'));   Writeln('Молодец! За столько кругов можно и на марафон... А пробежал ты... ', circle, '!'); end.