Паскаль.
Написать программу для нахождения произведения четырехзначного числа.

Огромное спасибо, вы мне очень помогли!

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018// Внимание! Если программа не работает, обновите версию!beginvar n:= ReadInteger('n =');var agg:= 1;while (n > 0) do begin  agg *= n mod 10;  n := n div 10;end;Writeln(agg);end.Примеры:n = 10350``````````````````````n = 123424