Мне нужна Прога на паскале. Найти все четырехзначные числа abcd, где цифры a,b,c,d-все р??зные, и для которых верно: ab-cd=a+b+c+d (желательно упростив при этом выражение) Помогите пожалуйста)

Uses crt;var a,b,c,d,g:INTEGER;beging:=9999;repeatd:= g mod 10;c:=(g div 10) mod 10;b:=(g div 100) mod 10;a:=g div 1000;if (a<>b) and (b<>c) and (c<>d) then begin if a*b-c*d=a+b+c+d then writeln(g);END;g:=g-1;until g=999;end.