Function isPrime(n)
  If n < 2 Then Return False
  If n = 2 Then Return True
  If n % 2  = 0 Then Return False
  limit = Int(Sqr(n))
  For i = 3 To limit Step 2
    If n % i = 0 Then Return False
  Next i
  Return True
End Function

Function leapyear(Y)
    If (Y % 4) <> 0 Then Return False
    If (Y % 100) = 0 And (Y % 400) <> 0 Then Return False
    Return True
End Function

input "y= ",y
yy=10000*y

If leapyear(y) Then dd=29 Else dd=28

For i = yy+0101 To yy+0131
  If isPrime(i) Then 
    Print String(i); " "; 
  End If
Next i
print
For i = yy+0201 To yy+0200+dd
  If isPrime(i) Then 
    Print String(i); " "; 
  End If
Next i
print
For i = yy+0301 To yy+0331
  If isPrime(i) Then 
    Print String(i); " "; 
  End If
Next i
print
For i = yy+0401 To yy+0430
  If isPrime(i) Then 
    Print String(i); " "; 
  End If
Next i
print
For i = yy+0501 To yy+0531
  If isPrime(i) Then 
    Print String(i); " "; 
  End If
Next i
print

For i = yy+0601 To yy+0630
  If isPrime(i) Then 
    Print String(i); " "; 
  End If
Next i
print
For i = yy+0701 To yy+0731
  If isPrime(i) Then 
    Print String(i); " "; 
  End If
Next i
print
For i = yy+0801 To yy+0831
  If isPrime(i) Then 
    Print String(i); " "; 
  End If
Next i
print
For i = yy+0901 To yy+0930
  If isPrime(i) Then 
    Print String(i); " "; 
  End If
Next i
print
For i = yy+1001 To yy+1031
  If isPrime(i) Then 
    Print String(i); " "; 
  End If
Next i
print
For i = yy+1101 To yy+1130
  If isPrime(i) Then 
    Print String(i); " "; 
  End If
Next i
print
For i = yy+1201 To yy+1231
  If isPrime(i) Then 
    Print String(i); " "; 
  End If
Next i
end