Пожайлуста помогите 10 задачу по ИВТ срочно это очень важно умоляю!!!!!!

Если программа,то вот: var a: 1000..9999;      a1, a2, a3, a4: 1..9;//Цифры числаbegin  writeln('Введите четырехзначное число');  readln(a);  a4:= a mod 10; //Последняя цифра  a3:= (a mod 100) div 10;  a2:= (a mod 1000) div 100;   a1:=a div 1000;//Первая слева цифра  writeln('Произведение цифр числа: ',a1 * a2 * a3 * a4);end.