Графика. Шахматная доска. Улитка Паскаля

uses graphABC;
procedure Kletka(x1,y1,c:integer;d:integer);
begin
Setpencolor(c);
rectangle(x1,y1,x1+d,y1+d);
floodfill(x1+2,y1+2,c); {закрасим}
end;
var x1,y1,x2,y2,d1,i,j,r,x:integer;
begin
d1:=round((windowheight-60)/8);{ширина клеток}
r:=d1 div 2;
x:=(windowwidth-8*d1-50)div 2;{левый край доски}
Setpencolor(clGray);
Rectangle(x,1,x+8*d1+50,8*d1+60);{контур доски}
floodfill(x+2,3,clGray); {закрасим}
x1:=x+30;y1:=20;{левый верхний угол клетки а-8}
for i:=1 to 8 do
  begin
    for j:=1 to 8 do
    if odd(i+j) then Kletka(x1+d1*(i-1),y1+d1*(j-1),clBrown,d1)
    else Kletka(x1+d1*(i-1),y1+d1*(j-1),clWhite,d1);
  end;
Setpencolor(clBlack);
setfontsize(12);
setfontstyle(fsBold);
setbrushstyle(bsClear);
for i:=0 to 7 do{подписи вертикалей a..h}
textout(x+30+d1*i+d1 div 2,390,chr(ord(i+97)));
for i:=7 downto 0 do{подписи горизонталей 1..8}
textout(x+15,350-d1*i,chr(ord(i+49)));
end.

uses graphABC;
var a,l,xc,yc,x,y,m:integer;
    f,r:real;
begin
a:=2;
L:=4;
m:=40;//масштаб
xc:=windowwidth div 3;
yc:=windowheight div 2;
f:=0;
while f<=2*pi do
 begin
  r:=L+a*cos(f);
  x:=xc+round(r*cos(f)*m);
  y:=yc-round(r*sin(f)*m);
  setpixel(x,y,clRed);
  f:=f+0.001;
 end;
readln
end.