LET c=0
LET d=0
LET e=0
LET f=0
LET g=0
LET h=0
LET i=0
LET j=0
LET k=0

FOR s=1 TO 1000000
   LET a1=ROUND(RND)
   LET a2=ROUND(RND)
   LET b1=ROUND(RND)
   LET b2=ROUND(RND)
   LET x=10*(a1+a2)+100*(b1+b2)
   IF x=0 THEN LET c=c+1
   IF x=10 THEN LET d=d+1
   IF x=20 THEN LET e=e+1
   IF x=100 THEN LET f=f+1
   IF x=110 THEN LET g=g+1
   IF x=120 THEN LET h=h+1
   IF x=200 THEN LET i=i+1
   IF x=210 THEN LET j=j+1
   IF x=220 THEN LET k=k+1
NEXT s
PRINT
PRINT "    �O�~  ";
PRINT USING "######":c;
PRINT "��  ";ROUND(c/10000,1);"��"
PRINT "  �P�O�~  ";
PRINT USING "######":d;
PRINT "�� ";ROUND(d/10000,1);"��"
PRINT "  �Q�O�~  ";
PRINT USING "######":e;
PRINT "��  ";ROUND(e/10000,1);"��"
PRINT "�P�O�O�~  ";
PRINT USING "######":f;
PRINT "�� ";ROUND(f/10000,1);"��"
PRINT "�P�P�O�~  ";
PRINT USING "######":g;
PRINT "�� ";ROUND(g/10000,1);"��"
PRINT "�P�Q�O�~  ";
PRINT USING "######":h;
PRINT "�� ";ROUND(h/10000,1);"��"
PRINT "�Q�O�O�~  ";
PRINT USING "######":i;
PRINT "��  ";ROUND(i/10000,1);"��"
PRINT "�Q�P�O�~  ";
PRINT USING "######":j;
PRINT "�� ";ROUND(j/10000,1);"��"
PRINT "�Q�Q�O�~  ";
PRINT USING "######":k;
PRINT "��  ";ROUND(k/10000,1);"��"
PRINT 
PRINT "���Ғl ��";ROUND((10*d+20*e+100*f+110*g+120*h+200*i+210*j+220*k)/1000000,1);"�~"
PRINT
END