С клавиатуры вводится целое число N, найти произведение всех цифр этого числа, а также количество цифр больше 6

var

a, b, i, c: integer; / / объявляем переменные целочисленного типа.

begin

c : = 1; / / нужно для подсчета произведения.

write ('Введите целое число:'); / / вывод строки на экран.

read (a); / / считываем число, введенное с клавиатуры.

while a > 0 do / / начало цикла.

begin

b : = a mod 10; / / определяем последнюю цифру числа.

c : = c * b; / / считаем произведение цифр в числе.

if (b > 6) then i : = i + 1; / / считаем цифры больше 6.

a : = a div 10; / / удаляем последнюю цифру из числа.

end;

writeln ('Произведение цифр числа равно: ', c); / / вывод строки на экран.

writeln ('Количество цифр больше шести равно: ', i); / / вывод строки на экран.

end.