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

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.