Составьте программу определения знака произведения трёх чисел. нужно написать на языке basic.

Sub Main()
        Dim a, b, c As Integer
        a = Int32.Parse(Console.ReadLine())
        b = Int32.Parse(Console.ReadLine())
        c = Int32.Parse(Console.ReadLine())
        Console.WriteLine(IIf(a * b * c < 0, "-", "+"))
        Console.Read()
End Sub

Можно было и короче, но для школы так лучше)