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

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.