Module Module1

    Sub Main()
        Dim piczovina1 As String 'vytvori papir, do kteryho jde psat cokoliv
        Dim obvod, pi, prumer As Double ' vytvori papiry obvod, pi, prumer na ktere jde zapsat jen cislo
        pi = 3.14 ' na papir pi ulozi 3.14
        Console.Write("zadejte prumer:") ' vypise text
        piczovina1 = Console.ReadLine() ' co napise uzivatel ulozi na "papir" piczovina1
        If IsNumeric(piczovina1) Then ' podminka, ktera se splni pokud jsou v piczovina1 jen cisla
            prumer = CDbl(piczovina1) ' prevede text na cisla
            If prumer = 0 Then ' podminka pokud je neco mensi nebo se rovna nula
                Console.WriteLine("nezadavej nulu lamo") ' vypise text
            ElseIf prumer < 0 Then 'pokud je prumer mensi nez 0 tak to pokracuje s tim co je pod tim
                Console.WriteLine("nezadavej zaporne cislo noobe :D") ' vypise text
            Else ' nebo pokud neni ani jedna z podminek nahore splnena tak to udela tohle
                obvod = pi * prumer ^ 2 ' vypocita obvod
                Console.Write("obvod je : ") ' vypise text "obvod je"
                Console.WriteLine(obvod) ' vypise obsah promene obvod
            End If 'konec tech tri podminek nahore
            Else ' nebo pokud neni ani jedna z podminek nahore splnena tak to udela tohle
            Console.WriteLine("ERROR") ' vypise error
        End If ' konec podminek s isnumeric
        Console.ReadLine() 'pocka na zmacknuti enteru pred koncem
    End Sub

End Module