С клавиатуры вводится целое число N,отыскать творенье всех цифр этого числа,а

var
   a, b, i, c: integer;         // объявляем переменные целочисленного типа.
begin
   c := 1;                                         // нужно для подсчета творенья.
   write (Введите целое число:);     // вывод строчки на экран.
   read(a);                                       // считываем число, введенное с клавиатуры.
      while a gt; 0 do                           // начало цикла.
        begin
            b := a mod 10;              // определяем заключительную цифру числа.
            c := c * b;                     // считаем творенье цифр в числе.
            if (b gt; 6) then i := i +1; // считаем цифры больше 6.
            a := a div 10;                // устраняем заключительную цифру из числа.
        end;
   writeln(Произведение цифр числа одинаково: , c);            // вывод строки на экран.
   writeln(Количество цифр больше 6 равно: , i);    // вывод строки на экран.
end.