Где-то в поле Робота находится горизонтальная стена с отверстием в одну клетку, размеры которой неизвестны. Робот из произвольной клетки над стеной, но обязательно напротив нее, должен дойти до стены и закрасить все клетки под ней, как показано на рисунке. !ВНИМАНИЕ! ЗАДАЧУ НУЖНО РЕШИТЬ С ПРЕМЕННОЙ n! По типу n цел n:=0 n:=n+2 нц n+2 раз. РЕШЕНИЕ БЕЗ ПЕРЕМЕННОЙ БУДЕТ НЕВЕРНЫМ!

I don't understand your language, what's this?!

uses GraphABC;

begin

setwindowsize(500,500);

setbrushcolor(clrandom);

circle(250,250,230);

setbrushcolor(clrandom);

circle(250,250,210);

setbrushcolor(clrandom);

circle(250,250,190);

setbrushcolor(clrandom);

circle(250,250,170);

setbrushcolor(clrandom);

circle(250,250,150);

setbrushcolor(clrandom);

circle(250,250,130);

setbrushcolor(clrandom);

circle(250,250,110);

setbrushcolor(clrandom);

circle(250,250,90);

setbrushcolor(clrandom);

circle(250,250,70);

setbrushcolor(clrandom);

circle(250,250,50);

setbrushcolor(clrandom);

circle(250,250,30);

setbrushcolor(clrandom);

circle(250,250,10);

end.

1.
Const R=5;
Var L,S:real;
Begin
L:=2*Pi*R;
S:=Pi*sqr(R);
writeln ('Радиус окружности R = ',R, ' см');
writeln ('Длина окружности L = ',L:4:2, ' см');
writeln ('Площадь круга S = ',S:4:2, ' см кв.');
End.

2.
Const r1=20;
Var S1,S2,S,r:real;
Begin
writeln ('Введите внешний радиус');
readln (r);
S1:=Pi*sqr(r1);
S2:=Pi*sqr(r);
S:=S2-S1;
writeln ('Площадь кольца = ', S:4:2);
End.

3. 
Var tet, ob, col, kar, ck, sum: real;
Begin
writeln ('Введите цену 1 тетради');
readln (tet);
writeln ('Введите цену 1 обложки');
readln (ob);
writeln ('Введите количество комплектов');
readln (col);
writeln ('Введите цену 1 карандаша');
readln (kar);
writeln ('Введите количество карандашей');
readln (ck);
sum:=(tet+ob)*col+kar*ck;
writeln ('Стоимость покупки = ', sum);
End.