Информатика. Паскаль.

Question

Помогите на турбо паскале решить и ввести последующую задачу: 
Найдите произведение цифр 3-х значного числа введенного с клавиатуры.

Андрей Коровкин · Accepted Answer

var 
a,b:integer; 
begin 
writr('Введите число'); 
readln (a); 
b:= a mod 100; 
a:= (a div 100) * (b div 10)*(b mod 10); 
write('Ответ',a); 
end 
 mod - остаток от деления 
div деление нацело в случае ошибки просто a/100