Дано трехзначное целое число. найти произведение этого числа на разность максимального и минимального чисел, составленных их цифр исходного числа. например для заданного числа 315 получим: 315 × (531 – 135) = 124740

В PascalABC 
var n: integer;
    s: string;
begin
  write('число:  ');  readln(s);
  n:=(StrToInt(s.Sorted.Reverse.JoinIntoString('')) - StrToInt(s.Sorted.JoinIntoString('')))*StrToInt(s);  writeln('число:  ',n);
end.