Girilen pozitif bir tamsayının, iki sayının kareleri toplamı şeklinde yazılıp yazılamayacağını bulan program

CLS
INPUT "SAYI = " , SAYI
PRINT : PRINT " A - B "  : PRINT "----------"
FOR A = 0 TO FIX(SAYI/2)
FOR B = 0 TO FIX(SAYI/2)
IF A *A +B*B = SAYI THEN PRINT A ; "-" ; B
NEXT B
NEXT A
END