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

Var

n, p: integer;

begin

Write ('Введите натуральное четырехзначное число - > ') ;

Readln (n) ;

p : = (n div 1000) * (n mod 10) ; { произведение первой и последней цифр }

n : = (n mod 1000) div 10; { вторая и третья цифры }

p : = p * (n div 10) * (n mod 10) ;

Writeln ('Произведение цифр числа равно ', p)

end.

Тестовое решение:

Введите натуральное четырехзначное число - > 2437

Произведение цифр числа равно 168