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

Program asx;var  a, b, d, e: integer;begin  writeln(' четерехзначное число ');  readln(e);  a := 1;  d := 1000;  repeat    b := (e div d) mod 10;    a := a * b;    d := trunc(d / 10);  until d < 1;  writeln('Ответ: ', a);end.