giorni settimana

fortunatamente è stato il prof a dircelo..perche io nn sarei mai riuscitaaaa:D
Il programma per i giorni della settimana!

G$(0) = "lunedì" :
G$(1) = "martedì" :
G$(2) = "mercoledì" :
G$(3) = "giovedì" :
G$(4) = "venerdì" :
G$(5) = "sabato" :
G$(6) = "domenica" :
INPUT " GG,MM,AAAA"; G,M,A :
A = A+ (M<3) : M=M-12*(M<3) :
S = G+2*M+ INT(.6*(M+1))+A+A\4 :
R = _(A<1582)*((A\100)-(A\400)-2) :
N = (S-R+S) MOD7 :
PRINT G$(N