XProfan

Window Title "Pytagoräische Dreieckszahlen"
cls
declare x!,y!,z!
var pi!=4*arctan(1)

whileloop 1,1000:x!=&Loop

    whileloop 1,&Loop:y!=&Loop

        z!=sqrt(x!*x!+y!*y!)

        if z!=int(z!)

            print "  ";int(x!);"² +",int(y!);"² =",int(z!);"²";
            print tab(26);stature$("%g",arctan(y!/x!)*180/pi!);"°",
            print tab(46);stature$("%g",90-arctan(y!/x!)*180/pi!);"°"

        endif

        if %csrlin>24:waitinput:cls:endif

        endwhile

    endwhile

    waitinput