Составить программу: вычисления произведения цифр трехзначного числа (div и mod)

program zz1;

var i, s, k, p:integer; / / задаем переменные целого типа

begin

write (' введите трехзначное число'); / / вводим с клавиатуры число

read (i);

p:=i mod 10; / / находим последнюю цифру трехзначного числа

k:=i div 100; / / находим первую цифру трехзначного числа

s: = (i mod 100) div 10; / / находим среднюю цифру трехзначного числа

writeln (' произведение цифр заданного трехзначного числа = ', s * k * p); / / выводим ответ

end.