program mang;
uses graph,crt;
var
draiver, mood, kx, ky, i, j, rida, veerg, viga:integer;
tabel: array[1..3, 1..3] of integer;
c: char;
valmis, tais: boolean;

procedure rist(kx, ky: integer);
begin
line(kx-5, ky, kx+5, ky);
line(kx, ky-5, kx, ky+5);


{gotoxy(kx,ky);
 writeln(' * ');
 gotoxy(kx, ky+1);
 writeln(' ** ');
 gotoxy(kx, ky+2);
 writeln(' * ');}
end;

procedure ring(kx, ky: integer);
begin
circle(kx, ky, 5);

{gotoxy(kx, ky);
writeln(' * ');
writeln(kx, ky+1);
writeln(' ** ');
gotoxy(kx, ky+2);
writeln(' * ');}
end;

begin
for i:=1 to 3 do
for j:=1 to 3 do
 tabel[i, j]:=0;

draiver:=detect;
Initgraph(draiver, mood ,' ');
line(350, 100, 350, 250);
line(250, 100, 250, 250);
line(170, 200, 400 , 200);
line(170, 150, 400, 150);
valmis:=false; tais:=false;
repeat
outtextxy(10, 400, 'mitmes rida');
c:=readkey; outtextxy(110, 400, c);
val(c, rida, viga);
outtextxy(10, 450, 'mitmes veerg');
readln(veerg);
if tabel[rida, veerg]=0 then
begin
 tabel[rida, veerg]:=1;
 rist(220+80*(veerg-1), 125+50*(rida-1));
end;
setfillstyle(1, black);
bar(0, 300, 200, 500);

 outtextxy(10, 450, 'mitmes rida');
 c:=readkey; outtextxy(110, 400, c);
 val(c, rida, viga);
 outtextxy(10, 450, 'mitmes veerg');
 readln(veerg);
 if tabel[rida, veerg]=0 then
 begin
 tabel[rida, veerg]:=2;
 ring(220+80*(veerg-1), 125+50*(rida-1));
 end;

 if(tabel[1,1]=2)and(tabel[1,2]=2)and(tabel[1,3]=2)then
 begin
 outtextxy(200, 300, 'Mangu voitis teine voistkond');
 end;
 if(tabel[2,1]=2)and(tabel[2,2]=2)and(tabel[2,3]=2)then
 begin
 outtextxy(200, 300, 'Mangu voitis teine voistkond');
 valmis:=true;
 end;
 if(tabel[3,1]=2)and(tabel[3,2]=2)and(tabel[3,3]=2)then
 begin
 outtextxy(200, 300, 'Mangu voitis teine voistkond');
end;

if(tabel[1,1]=2)and(tabel[2,1]=2)and(tabel[3,1]=2)then
begin
outtextxy(200, 300, 'Mangu voitis teine voistkond');
end;
if(tabel[1,2]=2)and(tabel[2,2]=2)and(tabel[3,2]=2)then
begin
outtextxy(200, 300, 'Mangu voitis teine voistkond');
end;
if(tabel[1,3]=2)and(tabel[2,3]=2)and(tabel[3,3]=2)then
begin
outtextxy(200, 300, 'Mangu voitis teine voistkond');
end;
if(tabel[1,1]=2)and(tabel[2,2]=2)and(tabel[3,3]=2)then
begin
outtextxy(200, 300, 'mangu voitis teine voistkond');
end;
if(tabel[1,3]=2)and(tabel[2,2]=2)and(tabel[3,1]=2)then
begin
outtextxy(200, 300, 'Mangu voitis teine voistkond');
end;

if(tabel[1,1]=1)and(tabel[1,2]=1)and(tabel[1,3]=1)then
begin
outtextxy(300, 400, 'Mangu voitis esimene voistkond');
end;
if(tabel[2,1]=1)and(tabel[2,2]=1)and(tabel[2,3]=1)then
begin
outtextxy(300, 400, 'Mangu voitis esimene voistkond');
end;
if(tabel[3,1]=1)and(tabel[3,2]=1)and(tabel[3,3]=1)then
begin
outtextxy(300, 400, 'Mangu voitis esimene voistkond');
end;
if(tabel[1,1]=1)and(tabel[2,1]=1)and(tabel[3,1]=1)then
begin
outtextxy(300, 400, 'Mangu voitis esimene voistkond');
end;
if(tabel[1,2]=1)and(tabel[2,2]=1)and(tabel[3,2]=1)then
begin
outtextxy(300, 400, 'Mangu voitis esimene voistkond');
end;
if(tabel[1,3]=1)and(tabel[2,3]=1)and(tabel[3,3]=1)then
begin
outtextxy(300, 400, 'Mangu voitis esimene voistkond');
end;
if(tabel[1,1]=1)and(tabel[2,2]=1)and(tabel[3,3]=1)then
begin
outtextxy(300, 400, 'Mangu voitis esimene voistkond');
end;
if(tabel[1,3]=1)and(tabel[2,2]=1)and(tabel[3,1]=1)then
begin
outtextxy(300, 400, 'Mangu voitis esimene voistkond');
end;
tais:=true;
for i:=1 to 3 do
for j:=1 to 3 do
 if tabel[i, j]=0 then tais:=false;


until valmis or tais;
end.
readln;
closegraph;
end.