Найти произведение цифр заданного четырехзначного числа — Pascal(Паскаль)

program DigitsProduct;

uses Crt;

var
  Number, { заданное число }
  i, j, k, l, { цифры числа }
  P: Integer; { произведение цифр }

begin
  ClrScr;
  Write('Введите четырехзначное число : ');
  ReadLn(Number);
  Write('Цифры числа ', Number, ' : ');
  Number := Abs(Number);
  i := Number div 1000;
  Write(i:3); { первая цифра }
  j := Number div 100 mod 10;
  Write(j:3); { вторая цифра }
  k := Number div 10 mod 10;
  Write(k:3); { третья цифра }
  l := Number mod 10;
  WriteLn(l:3); { четвертая цифра }
  P := i * j * k * l;
  WriteLn('О т в е т : произведение цифр равно ', P);
  ReadLn

end.