Šachovnica (Zadanie 7)

procedure TForm1.Button1Click(Sender: TObject); Var a,i,j,n,x,y:integer; begin y:=30; a:=20; for i:=1 to 8 do begin x:=50; for j:=1 to 8 do begin if (j+i) mod 2=1 then Canvas.Brush.Color:=clWhite else Canvas.Brush.Color:=clBlack; Canvas.Rectangle(x,y,x+a,y+a); x:=x+a; end; y:=y+a; end; end; end.