Sasica

Module Module1
    Public a As Double
    Public b As Double
    Public c As Double
    Public n As Integer
    Public t As Double
    Public najden As Boolean

    Sub Main()
        Console.WriteLine("Vnesete go a")
        a = Console.ReadLine()
        Console.WriteLine("Vnesete go b")
        b = Console.ReadLine()
        Console.WriteLine("Vnesete go c")
        c = Console.ReadLine()
        Console.WriteLine("Vnesete go n")
        n = Console.ReadLine()
        Console.WriteLine("a = " & a)
        Console.WriteLine("b = " & b)
        Console.WriteLine("c = " & c)
        Console.WriteLine("m = " & n)
        Console.WriteLine("Nizata e: ")
        For i = 1 To n
            t = a - b
            a = b
            b = t
            If t = c Then
                najden = True
            End If
            Console.Write(" " & t)
        Next
        Console.WriteLine("")
        If najden = True Then
            Console.WriteLine("DA")
        Else
            Console.WriteLine("NE")
        End If
        Console.ReadLine()
    End Sub

End Module