REM “ МАТЕМАТИЧЕСКОЕ ВЫШИВАНИЕ “

gr.open 255,200,200,200
gr.orientation 1
gr.color 255,0,0,0,0
gr.render

X=100

Y=80

FOR K=1 TO 10

gr.LINE Lin,60,Y,X,380

X=X+40
Y=Y+30

NEXT K

gr.render

X=60
Y=110

FOR L=1 TO 10

gr.LINE E,X,80,460,Y

X=X+40
Y=Y+30

NEXT L

gr.render

gr.CIRCLE OV,260,230,100

gr.render

gr.point F,260,230

gr.render

FOR Q=0 TO 2

gr.LINE LL,60-10*Q,80-10*Q,460+10*Q,380+10*Q

NEXT Q

gr.render

pause 10000

end