Вот программа на языке Pascal, которая вычисляет произведение цифр четырёхзначного числа:

program ProductOfDigits;var  a, a1, a2, a3, a4, p: integer;begin  write('Введите четырёхзначное число: ');  readln(a);  a1 := a div 1000;  a2 := a div 100 mod 10;  a3 := a div 10 mod 10;  a4 := a mod 10;  p := a1 * a2 * a3 * a4;  writeln('Произведение цифр числа ', a, ' равно ', p);end.

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

Объяснение:

• program ProductOfDigits; — это заголовок программы.
• var — это раздел объявления переменных. В этой программе объявляются переменные a, a1, a2, a3, a4 и p.
• a, a1, a2, a3, a4, p: integer; — это объявление переменных. Здесь указывается тип данных integer для всех переменных.
• begin — это начало основной части программы.
• write('Введите четырёхзначное число: '); — это вывод сообщения на экран.
• readln(a); — это запрос на ввод четырёхзначного числа.
• a1 := a div 1000; — это вычисление первой цифры числа.
• a2 := a div 100 mod 10; — это вычисление второй цифры числа.
• a3 := a div 10 mod 10; — это вычисление третьей цифры числа.
• a4 := a mod 10; — это вычисление четвёртой цифры числа.
• *p := a1 a2 a3 a4;** — это вычисление произведения цифр числа.
• writeln('Произведение цифр числа ', a, ' равно ', p); — это вывод результата на экран.
• end. — это конец программы.