uses crt, graph;
var
s:string;
score:longint;
x,y,a,b,laix:integer;
q,r:char;
gals,jauns:boolean;

begin
randomize;
x:=1;
y:=1;
laix:=100;
jauns:=true;
initgraph(a,b,'');
SetColor(4);
rectangle(0,0,632,472);   {zime ekranu}
repeat
if jauns then
begin
a:=random(62)+1;
b:=random(46)+1;
setcolor(4);
circle(10*a-5,10*b-5,3);    {ja nepiecieshams, tiek izveidots jauns merkis}
jauns:=false;
end;
SetColor(3);
rectangle(10*x-9,10*y-9,10*x+1,10*y+1); {tiek uzzimets kustigais kvadrats}
delay(laix);    {tiek nogaidits}
while keypressed do r:=readkey;     {nolasa taustinju, ko nospied}
if(r=#72)or(r=#75)or(r=#77)or(r=#80)or(r=#27)then q:=r;
setcolor(0);
rectangle(10*x-9,10*y-9,10*x+1,10*y+1);  {izdzesh kustiigo kvadratu}
case ord(q) of     {maina kvadrata koordinaatas}
72:dec(y);
75:dec(x);
77:inc(x);
80:inc(y);
end;
if(x<1)or(x>63)or(y<1)or(y>47)then gals:=true; {ja aarpus lauka, tad ir GALS}
if(x=a)and(y=b)then     {ja satiek rinki, tad liek veidot jaunu, palielina atrumu}
begin                   {un izdzesh sho rinki}
jauns:=true;
score:=score+10;
setcolor(0);
circle(10*a-5,10*b-5,3);
dec(laix);
end;
until (q=#27)or(gals)or(laix=10); {paarbauda, vai nenospiests Esc, vai nav ietriecies}
SetColor(15);
str(score,s);
outtextxy(200,240,'Game Over. Score-'+s); {izvada rezultatu}
readln;
closegraph;
end.