Module Module1
    Sub Main()
        Dim c, d As Integer
        Dim k As Double

        Console.WriteLine("Введiть С")
        c = Console.ReadLine()
        Console.WriteLine("Введiть D")
        d = Console.ReadLine()

        If c + d < 12 Then
            k = (c - 12) / d
        Else
            k = (c + d) / 5
        End If

        Console.WriteLine("K = " & k)
        Console.ReadLine()
    End Sub
End Module