Дано целое четырёхзначное число. используя операции div и mod найти произведение его цифр

Program NoName;

Var

n, sum, n1, n2, n3, n4:integer;

Begin

Write ('Введите 4 х значное число: ') ;

Readln (n) ;

n1:=n mod 10;

n2: = (n div 10) mod 10;

n3: = (n div 100) mod 10;

n4:=n div 1000;

sum:=n1+n2+n3+n4;

Write ('Сумма цифр числа = ', sum) ;

end.