okrb.BAS

{* Окружность *}

REM basic

' Построение окружности


CLS
INPUT "Введите координаты центра x,y: ", x,y
INPUT "Введите радиус окружности R: ", r
SCREEN 1
CIRCLE (x, y), r
End