Сложная школьная задача. Ч 2

Преподаватель школы № 1557 им. П.Л.Капицы заинтересовался моим решением и попросил  прислать таблицу с "удобными исходными данными и такими же удобными решениями". Я понял эту просьбу так: найти решения только в целых числах. Свою прогу чуть развил:

for B=1 to 3
for D=4 to 12
for A=80 to 90
for C=160 to 180
rem A=85:B=3:C=143:D=9
a1=1/2*(-sqrt(A^2+2*A*B*D+B^2*D^2-4*C*D)+A+B*D)
b1=1/2*(sqrt(A^2+2*A*B*D+B^2*D^2-4*C*D)+A-B*D)
c1=(2*C)/(-sqrt(A^2+2*A*B*D+B^2*D^2-4*C*D)+A+B*D)
d1a=-sqrt(A^2+2*A*B*D+B^2*D^2-4*C*D)+A+B*D
d1=(B*(sqrt(A^2+2*A*B*D+B^2*D^2-4*C*D)-B*D)-A*B+2*C)/d1a
a2=1/2*(sqrt(A^2+2*A*B*D+B^2*D^2-4*C*D)+A+B*D)
b2=1/2*(-sqrt(A^2+2*A*B*D+B^2*D^2-4*C*D)+A-B*D)
c2=(2*C)/(sqrt(A^2+2*A*B*D+B^2*D^2-4*C*D)+A+B*D)
d2a=sqrt(A^2+2*A*B*D+B^2*D^2-4*C*D)+A+B*D
d2 = -(B*(sqrt(A^2 + 2*A*B*D + B^2*D^2 - 4*C*D) + B*D) + A*B - 2*C)/d2a
if a1=int(a1) then
if b1=int(b1) then
if c1=int(c1) then
if d1=int(d1) then
if a2=int(a2) then
if b2=int(b2) then
if c2=int(c2) then
if d2=int(d2) then
if a2*b2*c2*d2<>0 then
s=s+1
print s using "###",A using "###",B using "###",C using "#####";
print D using "###",a1 using "###",b1 using "###",c1 using "###";
print d1 using "###",a2 using "###",b2 using "####";
print c2 using "###",d2 using "###"
fi:fi:fi:fi:fi:fi:fi:fi:fi
next C
next A
next D
next B

В результате получил табличку, в которой по два решения и все параметры
целочисленные. Несколько вариантов проверил вручную. Норма!      

4 апреля 2023 г.