Известно, что где-то правее робота есть стена. составьте алгоритм, под которого робот закрасит ряд клеток до стены и вернется в исходное положение., !

Begin
c:=0;
while FreeFromRight do
begin
Paint;
Right;
c+=1;
end;
for var i:= 1 to c do
Left;