uses graph;
var
d,m:integer;
x,y:integer;
begin
initgraph(d,m,'');
rectangle(0,0,GetMaxX,GetMaxY); {tiek uzziimeets raamis}
y:=20;
repeat
line(0,y,GetMaxX,y);
y:=y+40;
until y>GetMaxY;
x:=20;
repeat
line(x,0,x,GetMaxY);
x:=x+40;
until x>GetMaxX;
setfillstyle(1,4);
for d:=1 to 15 do     {apliishi}
 for m:=1 to 11 do
  fillellipse(40*d,40*m,5,5);

for d:=1 to 28 do
    begin
    line(0,40*d-20,40*d-20,0);            {pirmaa veida sliipaas linijas}
    line(GetMaxX,40*d-20,GetMaxX-(40*d-20),0);{otraa veida sliipaas liinijas}
    end;

setfillstyle(9,green);
for d:=1 to 16 do  {apskata visus krustpunktus}
for m:=1 to 12 do
begin
floodfill(40*d-20+2,40*m-20+2,15);{15 - kraasa (baltaa), kuru sastopot beidz kraasot}
floodfill(40*d-20+2,40*m-20-2,15);
floodfill(40*d-20-2,40*m-20-2,15);
floodfill(40*d-20-2,40*m-20+2,15);
end;
readln;
closegraph;
end.