Program NoName;

var i: integer;

Begin
for i:=1 to 10 do
begin 
RobotForw;
Select;
end;
for i:=1 to 1 do
begin 
RobotLeft;
Select;
end;
for i:=1 to 9 do
begin 
RobotForw;
Select;
end;
for i:=1 to 1 do
begin 
RobotLeft;
Select;
end;
for i:=1 to 9 do
begin 
RobotForw;
Select;
end;
for i:=1 to 1 do
begin 
RobotLeft;
Select;
for i:=1 to 9 do
begin 
RobotForw;
                                
                            

Paste Hosted With By Wklejamy.pl