mayın tarlası
 

uses crt,graph;

procedure board (dolgu_renk, yazi_renk, arka_plan, sutun, satir : integer);
var
k,i, a,b,sayac, sayac2:integer;
c:char;
gd,gm,width:integer;

begin
Gd := Detect;
detectgraph (gd,gm);
if GraphResult <> grOk then Halt(1);
initgraph (gd,gm,'');
sayac:=0;
sayac2:=0;
setbkcolor(arka_plan);
cleardevice;
setcolor (yazi_renk);

setfillstyle (1,dolgu_renk);

for k:=1 to satir do begin
sayac2:=sayac2+20;
for i:=1 to sutun do begin
sayac:=sayac+20;
Bar(0+sayac,10+sayac2,20+sayac,30+sayac2);
rectangle (0+sayac,10+sayac2,20+sayac,30+sayac2);
end;
sayac:=0;
end;
end; { procedure endi}

begin
board (14,1,2,15,5);
readln;
end.