Мне нужна Прога на паскале. Найти все четырехзначные числа 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.

Вы сравниваете соседние цифры.Есть еще случаи, когда a = c, a = d, b = d