{* Соприкасающиеся окружности *}

REM basic

' Соприкасающиеся окружности


10 {соприкасающиеся окружности
}20 {занесение значений радиусов
}30 Data 50,20,10,25,40,15,60
40 screen 9
50 {задание начальной координаты х
}60 x=0
70 For i=1 To 7
80 read r
90 circle (x+К175),R, 14
100 x=x+2*R
110 Next i
120 End