Дано натуральное число. Написать программу, которая будет находить: - Pascal

Формулировка задачи:

Дано натуральное число. Написать программу, котрая будет находить: а)кол-во цифр этого числа, больших 6 и произведение цирф, не удовлетворяющих данному критерию; б) произведение и кол-во цифр данного числа; Помогите решить задачу пожалуйста!

Решение задачи: «Дано натуральное число. Написать программу, которая будет находить:»

Листинг программы

  ReadLn(n); p:=1; p6:=1;
  while n>0 do begin
    Inc(c); p:=n mod 10*p;
    if n mod 10>6
    then Inc(c6)
    else p6:=n mod 10*p6;
    n:=n div 10;
  end;
  WriteLn(c6,' ',p6,' ',c,' ',p);

Объяснение кода листинга программы

Сначала программа запрашивает у пользователя натуральное число n и сохраняет его в переменную n.
Инициализирует две переменные: p и p6 равными 1.
Затем программа выполняет цикл while, который будет выполняться до тех пор, пока n больше 0.
Внутри цикла программа увеличивает счетчик c на 1.
Затем программа вычисляет остаток от деления n на 10 умноженное на p и сохраняет результат в переменную p.
Если остаток от деления n на 10 больше 6, то программа увеличивает счетчик c6 на 1.
Иначе программа вычисляет остаток от деления n на 10 умноженное на p6 и сохраняет результат в переменную p6.
Затем программа делит n на 10 и сохраняет результат в переменную n.
После выхода из цикла программа выводит на экран значения счетчиков c6, p6, c и p.
Значения счетчиков c6, p6, c и p представляют собой итоговые результаты работы программы.