Решить задание PascalABC RBcc8 и RBcc9

 uses Robot; 
var X,Y: integer; 
begin  
Task('cc8');  
for Y:=4 downto 1 do begin for X:=2*Y+1 downto 1 do begin Paint;  
                                                    if X<>1 then Right 
                                                end;                                         
                           Down; Left; 
                            
                           for X:=2*Y+1 downto 1 do begin Paint;  
                                                          if not WallFromLeft then Left 
                                                    end;                                         
                           Down; Paint 
end; 
Down 
end.