uses graph,crt;
label k,l,p;
const v=7;
var grdriver,grmode:integer;
x1,x2,y1,y2:integer;
a,b,n:integer;
s:char;
c:string;
begin
p:
randomize;
initgraph(grdriver,grmode,s);
outtextXY(190,180,'For control use navigation button');
outtextXY(390,458,'Press ENTER for continue');
line(0,456,640,456);
readln;
x1:=0;
y1:=190;
x2:=20;
y2:=260;
n:=0;
l:
b:=random(470);
a:=631;
k:
s:=' ';
if keypressed=true then s:=readkey;
cleardevice;
dec(a);
Rectangle(x1,y1,x2,y2);
circle(a,b,5);
delay(900);
if s=#0 then begin
s:=readkey;
if s=#72 then begin y1:=y1-v; y2:=y2-v; end;
if s=#80 then begin y1:=y1+v; y2:=y2+v; end;
end;
if x2+5=a then if (b>y1)and(b<y2 ) then begin
inc(n);
goto l;
end;
if a=0 then begin outtextXY(300,220,'game over');
outtextXY(390,458,'Press ENTER for continue');
str (n,c);
outtextXY(330,240,'balls');
outtextXY(300,240,c);
line(0,456,640,456);
readln;
goto p;
end;
goto k;
readln;
end.
Сообщение отредактировано: volvo -