Составить программу, которая запрашивает четырехзначное число, и находит произведение цифр этого числа

Program i7;
var
  i,n,k: integer;
begin
  writeln('vvedi 4etireh znachoe chislo');
  readln(n);
  k:=1;
  while n>0 do
      begin
         k:=k*n mod 10;
         n:=n div 10;
      end;
  writeln(k);
end.