Find all rectangles with integer width and length, so that the perimeter of the rectangle is numerically equal to the area.
a=1; b=1;d=2*a + 2*b; if(d==a * b, goto4, goto5);printa, b; a++;if(a<1000, goto2, 0);a=1;b++;if(b<1000, goto2, discard=0;
Length Width
6 3 4 4
