' 1. Basic-

Input "";

label: =

For = 1 To 3

= 1

= - / 3

If > Int() Then = - 1: Goto label

Next

Print " "; ; ""

 

' 2. -

Input "";

= + 1 '

label: = - 1 '

=

For = 1 To 3

= 1

= - / 3

If > Int() Goto label

Next

Print " "; ; ""

 

' 3.

Input "";

= + 1

label: = 1

=

= "" '

For = 1 To 3

= 1

= - / 3

If > Int() Then = ""

Next

If = "" Goto label

Print " "; ; ""

 

' 4.

Input "";

= + 1

Do '

= 1

=

= ""

For = 1 To 3

= 1

= - / 3

If > Int() Then = ""

Next

Loop Until = "" '

Print " "; ; ""