PascalAbc нарисовать шахматное поле, подскажите какие нужны команды

Question

PascalAbc нарисовать шахматное поле, подскажите какие нужны команды

Answer 1

uses  
  graphABC;
var  
   i,j: integer;
begin  
  setWindowWidth(500);  
  setWindowHeight(500);  
  rectangle(30,30,470,470);  
  for i:=0 to 8 do  
  begin    
    line(50,50+i*50,50+8*50,50+i*50);    
    line(50+i*50,50,50+i*50,50+8*50);  
end;  
for i:=1 to 8 do    
  for j:=1 to 8 do      
     if odd(i+j) then        
       floodFill(i*50+1,j*50+1,clBlack);  
for i:=0 to 7 do  
begin    
  TextOut(70+i*50,453,chr(97+i));    
  TextOut(37,70+i*50,chr(56-i));  
end;
end.