07_if_then.bas

' Použito v článku
'
' Small Basic: moderní reinkarnace BASICu určená pro výuku programování
' https://www.root.cz/clanky/small-basic-moderni-reinkarnace-basicu-urcena-pro-vyuku-programovani/

TextWindow.Write("Circle radius = ")
r = TextWindow.ReadNumber()

if r < 0 then
    TextWindow.WriteLine("Negative radius?!")
endif

area = Math.Pi * r * r

TextWindow.WriteLine("Circle area = " + area)