С клавиатуры вводится целое число X из промежутка [100,9999].если число четырёхзначное,то найти сумму его цифр,а если трёхзначное,то произведение цифр числа — Pascal(Паскаль)

program laba;

var
  s, k, x: integer;

begin

  repeat
    writeln('Введите число в промежутке [100..9999]');
    write('x=');
    readln(x);
    if (x >= 100) and (x <= 999) then
      write('сумма цифр числа ', x, ' = ', (x mod 10) * (x div 10 mod 10) *
        (x div 100))
    else if (x >= 1000) and (x <= 9999) then
    begin
      k := x mod 10 + x div 1000 + x div 100 mod 10 + x mod 100 div 10;
      write('произведение цифр числа ', x, ' = ', k);
    end
    else
      write('число не является ни трёхзначным ни четырёхзначным');

end.