Найти произведение всех цифр заданного четырехзначного числа

Для решения данной задачи необходимо вспомнить операторы div и mod. Div — целочисленное деление, mod — остаток от целочисленного деления.

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

program z_9;
var n, n1, n2, n3, n4: integer;
begin
  write('Введите черытехзначное число: ');  read(n);
  n1:=n mod 10;
  n2:=(n div 10) mod 10;
  n3:=(n div 100) mod 10;
  n4:=(n div 1000) mod 10;
  write('Произведение = ',n1*n2*n3*n4);
end.