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

uses crt;
var i:word;
    a,b,c,d:byte;
begin
clrscr;
for i:=1000 to 9999 do
 begin
  a:=i div 1000;
  b:=i div 100 mod 10;
  c:=i div 10 mod 10;
  d:=i mod 10;
  if a*b-c*d=a+b+c+d then write(i,' ');
 end;
readln
end.