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

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.