uses Robot;
begin
Task('w9');
while WallFromRight do
paint;
up
end;
right;
while FreeFromDown do
down
paint
end.
uses Robot;
begin
Task('w9');
while WallFromRight do
begin
paint;
up
end;
paint;
right;
while FreeFromDown do
begin
paint;
down
end;
paint
end.