Ответ:
__________________________________________________________
И чем помочь ??? Если все данные у тебя самого...
Const
Pi = 3.141592;
var
R, S, L : Real;
begin<span>
</span> Write('Введите радиус круга: ');<span>
</span> ReadLn(R);
<span>
</span> S := Pi*sqr(R);<span>
</span> L := 2*Pi*R;
<span>
</span> Writeln('S круга: ', S:0:3);<span>
</span> Writeln('Длина окружности: ', L:0:3);<span>
</span> Readln;
end.
В вашу исходную программу, после Task('cif2'); надо добавить следующие строки, задающие алгоритм действий для робота:
while FreeFromRight do
begin
Right;
if WallFromUp then Paint;
if WallFromDown then Paint;
end;
Или, можно ещё немного сократить, объединив два условия в одном if (если вы уже проходили логические операторы OR):
while FreeFromRight do
begin
Right;
if WallFromUp or WallFromDown then Paint;
end;