uses Robot;
begin
 Task('cif4');
  while FreeFromRight do
   begin
    if WallFromUp and FreeFromDown then 
      Paint;
      Right;
      end;
    if WallFromDown and FreeFromDown then 
      Paint;
end.