RosettaCodeData/Task/100-doors/PureBasic/100-doors-2.purebasic

OpenConsole()
PrintN("Following Doors are open:")
For i = 1 To 100
    root.f = Sqr(i)
    If root = Int(root)
    	Print (Str(i) + ", ")
    EndIf
Next
Input()