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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.