Написать программу,которая находит все четырехзначные числа abcd,для которых выполняются условия 1)a,b,c,d-разные цифры 2)a*b-c*d=a+b+c+d

Program fofgogjoj;
var 
a,b,c,d:integer;
begin
for c:=0 to 7 do 
begin
a:=c+2; 
d:=9-c;
for b:=0 to 9 do 
begin
if (b<>c)and(b<>a)and(b<>d) then
Writeln(a,b,c,d);
Writeln;
end;
end;
readln;
end.