Morra

Ecco due programmini per giocare con la Morra!

REM MORRADIM V(16):
INPUT "GIOCA 0,...,Q x fine";g$ :
WHILE G$<>"Q" :
X=V(i)<=V(i+1) :
Y=VAL(G$) MOD 2 :
PRINT-X;Y, :
T=X=-Y 'T=Y=-X :
PRINT MID4("UC",1-T,1), :
TC=TC-T :
TU=TU+1+T :
I=I+Y :
PRINT USING"### :
V(i)=V(i)+1 :
i=2*i MOD 8 '2*(2-(i\8)*8) :G$=INPUT$(1) :
WEND

program numeri;
var n:longint;
beginwrite(',commento');
read(n);
if n mod 2=0 then write(il numero è pari')else(il numero è dispari);
end.