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

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.

2-а 5-б 8-в 10-г 44-д 74-е 80-ё 90-ж 12-з 15-и 116-й 77-к 48-л 58-м 55-н 91-о 23-п 73-р 41-с 75-т 88-у 11-ф 900-х 7-ц 1-ш 56-щ 25-ч 49-ы 22-ь,ъ 52-э 226-ю 228-я                                                       мама-582582                                                                                                     яблоко-228548917791

1)

program z1;

var a: integer;

begin read(a);

if (a> 9) and (a< 100) then writeln(a, '-двузначное число')

else writeln(a, '-не является двузначным числом');

end.

2)

program z2;

var i: integer;

begin

for i: =1 to 9 do if (i mod 2 = 1) then writeln(i, ', ');

end.

2 способ:

program z2; var i: integer; begini: =1; while i< =9 do begin write(i, ', '); i: =i+2; end; end.

3)

program z3; var i,n: integer; s: real; a: array[1..100] of real; beginwrite('введите количество элементов массива: '); readln(n); write('введите элементы массива: '); for i: =1 to n do read(a[i]); i: =1; s: =0; while i< =n do begin s: =s+a[i]; i: =i+2; end; write('s=',s); end.