Task
a(1) = 1; for n > 1, a(n) = largest proper divisor of n, where n < 101 .


Procedure.i lpd(v.i)
  For i=v/2 To 1 Step -1
    If v%i=0 : ProcedureReturn i : EndIf
  Next
  ProcedureReturn 1
EndProcedure
 
If OpenConsole("")
  For i=1 To 100
    Print(RSet(Str(lpd(i)),3))
    If i%10=0 : PrintN("") : EndIf
  Next
  Input()
EndIf