8.
uses Robot;
begin
Task('cif8');
while freefromright do
begin
right;
if wallfromup then
begin
down;
paint;
up
end;
if wallfromdown then
begin
up;
paint;
down
end
end
end.
9.
uses Robot;
begin
Task('cif9');
while freefromright do
begin
right;
if wallfromdown and wallfromup then paint
else if wallfromup then
begin
down;
paint;
up
end
else if wallfromdown then
begin
up;
paint;
down
end;
end
end.