Вводится двухзначное число,найти произведение цифр этого числа

//прога на Pascal`e var n, sum: int64; begin write ('Введите число n: '); readln (n); n:=abs (n); sum:=1; while n>0 do begin sum:=sum*(n mod 10); n:=n div 10; end; write ('Произведение цифр числа n: ', sum); end.