19 lines
458 B
Plaintext
19 lines
458 B
Plaintext
Procedure.i gcd(x.i,y.i)
|
|
While y<>0 : t=x : x=y : y=t%y : Wend : ProcedureReturn x
|
|
EndProcedure
|
|
|
|
If OpenConsole()
|
|
Dim Y.i(100)
|
|
For i=1 To 100
|
|
If i<=3 : Y(i)=i : Continue : EndIf : k=3
|
|
Repeat
|
|
RepLoop:
|
|
k+1
|
|
For j=1 To i-1 : If Y(j)=k : Goto RepLoop : EndIf : Next
|
|
If gcd(k,Y(i-2))=1 Or gcd(k,Y(i-1))>1 : Continue : EndIf
|
|
Y(i)=k : Break
|
|
ForEver
|
|
Next
|
|
For i=1 To 30 : Print(Str(Y(i))+" ") : Next : Input()
|
|
EndIf
|