INPUT "Введите символы :",N$ GR.OPEN 0, 0, 0, 0 GR.ORIENTATION 2 s=len(N$) GR.SCREEN w,h x=0 y=0 a=1 c=1 r=0 g=0 b=255 u=0 GR.TEXT.SIZE w/20 GR.TEXT.ALIGN 1 x=1 y=2 skeip: GR.CLS GR.COLOR 255,255, 0, 0, 255 GR.RECT Paddle, w/2, h/2, w/2+40, h/2+40 m=RND()*3+1 GR.COLOR 255,r, g, b, 255 GR.TEXT.DRAW M, 30, 30,str$(s) GR.TEXT.DRAW P, x, y, N$ x=x+a y=y+c IF x>w-s a=-m r=255 g=0 b=0 ENDIF IF x<5 a=m b=255 g=0 r=0 ENDIF IF y>h-5 c=-m g=255 b=0 r=0 ENDIF IF y<12 c=m r=255 b=255 g=0 ENDIF GR.RENDER GOTO skeip DO UNTIL 1