PRINT
PRINT "全ての辺の長さが自然数で、周囲の長さが１８の三角形"
PRINT
LET T=0
LET Q=0
FOR A=1 TO 6
  FOR B=A TO 8   ! A=<B
    LET W=A+B
    LET C=18-W
    IF W=<9 THEN GOTO 10  ! 最大でない２つの辺の和は周囲の長さの半分よりも大きい
    IF C<B THEN GOTO 10   ! B=<C
    LET S=SQR(9*(9-A)*(9-B)*(9-C))  ! 面積の公式より
    PRINT "    (";A;",";B;",";C;")    → 面積:";S
    IF S>T THEN
      LET T=S
      LET x=A
      LET y=B
      LET z=C
    END IF 
    LET Q=Q+1
10 NEXT B
   NEXT A
   PRINT
   PRINT "以上のように";Q;"通りの三角形があります。"
   PRINT 
   PRINT "最大の三角形は  (";x;",";y;",";z;")  で、その面積は";T;"です。"
   PRINT
END