Program NoName; 

var 
   i:integer; 

Begin 
   
    For i:=1 to 10 do
     begin
    Select; 
    RobotForw(1);
   
  end;
end.