Program piskvorky; uses crt, graph;

const max = 3;
pole:array[1..max] of integer=(46,137,227);


var gd,gm,celkem,a,b,x,y:integer;

procedure mrizka;
begin
line(91,0,91,271);
line(181,0,181,271);
line(0,91,271,91);
line(0,191,271,191);
end;

function cross(x,y:integer):integer;
begin
setcolor(white);

line(x,y,x-30,y+30);
line(x,y,x+30,y+30);
line(x,y,x-30,y-30);
line(x,y,x+30,y-30);
end;

function crosso(x,y,r:integer):integer;
begin
circle(x,y,r);
end;

procedure generuj(var x,y:integer);
var a,b:integer;
begin
Randomize;
a:=random(3)+1;
x:=pole[a];
b:=random(3)+1;
y:=pole[b];
end;

begin
gd:= D8bit;
gm:= m640x480
initgraph(gd, gm, '');
if (GraphResult <> grok) then
halt;
setbkcolor(1);
cleardevice;
setcolor(15);


for celkem:=1 to 10 do
begin
mrizka;
generuj(X,y);
cross(x,y);
generuj(X,y);
crosso(x,y,30);
delay(1000);
end;
closegraph;
readkey;
end.