Function isGiuga(m As Uinteger) As Boolean
    Dim As Uinteger n = m, f = 2, l = Sqr(n)
    Do
        If n Mod f = 0 Then
            If ((m / f) - 1) Mod f <> 0 Then Return False
            n /= f
            If f > n Then Return True
        Else
            f += 1
            If f > l Then Return False
        End If
    Loop
End Function

Dim As Uinteger n = 3, c = 0, limit = 4
Print "The first "; limit; " Giuga numbers are: ";
Do
    If isGiuga(n) Then c += 1: Print n; "  ";
    n += 1
Loop Until c = limit