dlskrug.BAS

{* Длина окружности и площадь круга *}

REM basic

' Вычисление длины окружности и площади круга


INPUT "Введите радиус ", r
PI = 3.14
l = 2 * PI * r
s= PI * r * r
PRINT "Длина окружности равна: ", l
PRINT "Площадь равна: ", s
End