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.