Дано натуральное число N . Вывести на экран цифры, не превышающие заданной цифры а и вычислить их произведение. - Pascal

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

Дано натуральное число N . Вывести на экран цифры, не превышающие заданной цифры а и вычислить их произведение.

Решение задачи: «Дано натуральное число N . Вывести на экран цифры, не превышающие заданной цифры а и вычислить их произведение.»

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

uses crt;
var n,p:longint;
    k,c,f:byte;
begin
clrscr;
repeat
write('Введите натуральное число n=');
readln(n);
until n>0;
repeat
write('Введите цифру c=');
readln(c);
until c in [0..9];
writeln('Цифры числа , не превышающие ',c);
p:=1;
f:=0;
while n>0 do
 begin
  k:=n mod 10;
  if k<=c then
   begin
    f:=1;
    p:=p*k;
    write(k,' ');
   end;
  n:=n div 10;
 end;
writeln;
if f=0 then write('Таких цифр нет!')
else write('Их произведение=',p);
readln
end.

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

Ввод числа N с клавиатуры
Проверка на положительность числа N
Ввод цифры C с клавиатуры
Вывод цифр числа N, не превышающих заданную цифру C
Инициализация переменных P и F значением 1 и 0 соответственно
Деление числа N на 10 и сохранение остатка в переменной K
Проверка, если K меньше или равно C, то
- Установка значения переменной F равным 1
- Умножение значения переменной P на K
- Вывод значения K на экран
Деление числа N на 10
Повторение шагов 6-8 до тех пор, пока число N больше 0
Вывод сообщения, если таких цифр нет, то вывод произведения цифр, если есть
Ввод символа с клавиатуры для завершения работы программы