Program Name;
Uses Crt;
Var Number,      {заданное число}
   i, j, k, l,  {цифры числа}
   P : Integer; {произведение цифр}
BEGIN
 ClrScr;
 Write( 'Введите четырехзначное число : ' ); ReadLn(Number);
 Number:=Abs(Number);
 Write( 'Цифры числа ' , 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.

p:=1;
read(n);
while n > 0 do
  begin
     p:=p * (n mod 10);
     n:=n div 10;
  end;