uses Robot;
begin
Task('w6');
while freefromdown do
down;
while wallfromdown and freefromright do right;
end
end.
Task('cif4');
while FreeFromRight do
right;
if WallFromUp and FreeFromDown then paint
Task('cif6');
if FreeFromUp or FreeFromDown then paint
uses Robot;
begin
Task('w6');
while freefromdown do
begin
down;
while wallfromdown and freefromright do right;
end
end.
uses Robot;
begin
Task('cif4');
while FreeFromRight do
begin
right;
if WallFromUp and FreeFromDown then paint
end
end.
uses Robot;
begin
Task('cif6');
while FreeFromRight do
begin
right;
if FreeFromUp or FreeFromDown then paint
end
end.