Find all ordered pairs of positive integers (x,y) that satisfy x^2 + y^2 - xy = 49.
a=0;b=0;p=0; cycle:d=a*10+b;if(a^2+b^2 - a*b==49, goto loop, goto next); loop:printd,", ",;p=p+1; next:b++;if(b<10, goto cycle, 0);b=0;a++;if(a<10, goto cycle, 0);print"Total = ",p
x y
7 7
3 8
5 8
7 0
8 3
8 5