begin; randomize; x:=windowwidth-300; y:=0; for i:=1 to 10 do begin; for j:=1 to 10 do begin; rectangle(x,y,x+a,y+a); x+=a; end; y+=a; x:=windowwidth-300; end; x:=random(1,10); y:=random(1,10); t:=0; while t<>10 do begin; readln(xt); readln(yt); if (xt<>x) and (yt<>y) then begin; xl:=windowwidth+xt*30-300; yl:=300-yt*30; cross(xl,yl,a); inc(t); end; if (xt=x) or (yt=y) then begin; xl:=windowwidth+xt*30-305; yl:=300-yt*30+4; floodfill(xl,yl,clBlue); inc(t); end; if (xt=x) and (yt=y) then begin; xl:=windowwidth+xt*30-305; yl:=300-yt*30+4; floodfill(xl,yl,clRed); writeln('Ты выиграл!'); break; end; end; if t=10 then begin; writeln('Ты проиграл!'); xl:=windowwidth+x*30-305; yl:=300-y*30+4; floodfill(xl,yl,clRed); end; end.
GraphABC;
const
a=30;
var
xt,yt,x,y,i,j,t,xl,yl:integer;
procedure cross(x,y,a:integer);
begin;
setpencolor(clred);
line(x,y,x-a,y+a);
line(x-a,y,x,y+a);
setpencolor(clblack);
end;
begin;
randomize;
x:=windowwidth-300;
y:=0;
for i:=1 to 10 do
begin;
for j:=1 to 10 do
begin;
rectangle(x,y,x+a,y+a);
x+=a;
end;
y+=a;
x:=windowwidth-300;
end;
x:=random(1,10);
y:=random(1,10);
t:=0;
while t<>10 do
begin;
readln(xt);
readln(yt);
if (xt<>x) and (yt<>y) then
begin;
xl:=windowwidth+xt*30-300;
yl:=300-yt*30;
cross(xl,yl,a);
inc(t);
end;
if (xt=x) or (yt=y) then
begin;
xl:=windowwidth+xt*30-305;
yl:=300-yt*30+4;
floodfill(xl,yl,clBlue);
inc(t);
end;
if (xt=x) and (yt=y) then
begin;
xl:=windowwidth+xt*30-305;
yl:=300-yt*30+4;
floodfill(xl,yl,clRed);
writeln('Ты выиграл!');
break;
end;
end;
if t=10 then
begin;
writeln('Ты проиграл!');
xl:=windowwidth+x*30-305;
yl:=300-y*30+4;
floodfill(xl,yl,clRed);
end;
end.