Program NoName;

var 
i:integer;

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