Дано целое четырехзначное число. Вычислить произведение его цифр (создать программу на паскале)

Program proga;
var a:integer;
Begin 
readln(a);
writeln((a div 1000) * (a mod 1000 div 100) * (a mod 1000 mod 100 div 10) * (a mod 1000 mod 100mod 10)); 
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.