RANDOMIZE
LET C=0
FOR k=1 TO 10000
   LET A=RND*10
   LET B=RND*10
   IF A<5 AND B<5 THEN
      LET C=C+1
   END IF
   IF A>5 AND B>5 THEN
      LET C=C+1
   END IF
   IF A>5 AND B<5 AND A-B>5 THEN
      LET C=C+1
   END IF
   IF A<5 AND B>5 AND B-A>5 THEN
      LET C=C+1
   END IF
NEXT k
PRINT
PRINT "鋭角三角形になっている確率は";(10000-C)/100;"％ です。"
PRINT
END