REM Start of BASIC! Program

input "введите частоту=", p

Gr.open 255,255,255,255

for x=1 to 255 step 1

Gr.color x,0,0,255,0
Gr.circle rct1,640,400,100

pause p*10

gr.render

gr.cls

Gr.color x,0,0,255,1
Gr.circle rct,640,400,100

pause p*10

Gr.render

gr.cls

next x


End