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

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.