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

• var x ,y, z, w, num, p: integer;
• begin
• writeln \('Введите число '\);
• read \(num\);
• w:=num div 1000;
• z:=\(num div 100\) mod 10;
• y:=\(num div 10\) mod 10;
• x:=num mod 10;
• p:=x*y*z*w;
• writeln \('p = ', p\)
• end.