Найти произведение цифр данного числа

[chertovka.]

пожалуйста.....

USES CRT;
var a,b,c,d,x:integer;
begin
clrscr;
writeln('ввести число A');
readln(c);
writeln('ввести число B');
READLN(d);

writeln('ввести число');
readln(a);
readln(b);
IF  (a>d) and (b>d) then
    begin
        x:=a*b;
        writeln('сложность = ',x);
        if (a=c) or (b=c) then write(' одна из цифр число A’)      
      else writeln('netu  A= ',c);{выводит 'ошибка в инструкции'}
    end else writeln('цифры меньше числа B');
  readkey
end.

Дано натуральное число. Найти произведение цифр данного числа, больших В. Верно ли то, что в данном числе есть цифра А(а и в вводятся с клавиатуры)

[Stilet]

Проверил в паскале - программа рабочая.

[Serge_Bliznykov]

USES CRT;
var a,b, x, OneDigit : integer;
  Proizved : LongInt;
  isDigit_A : boolean;
begin
clrscr;
writeln('ввести число A');
readln(A);
writeln('ввести число B');
READLN(B);

writeln('ввести число');
readln(x);

isDigit_A := false;
Proizved := 1;

  repeat
    {получаем очередную цифру числа 
      (справа налево!)
        просто берём остаток от деления на 10}
    OneDigit := X mod 10;

    {если цифра больше B - то умножим произведение на неё}
    if OneDigit > B then 
         Proizved := Proizved * OneDigit;

    if OneDigit = A then 
         isDigit_A := true;

    {оставляем число, делённое на 10 - отбрасываем правую цифру}
    X := X div 10; 
  until X=0;

  WriteLn('произведение цифр больше И равно ', Proizved:1);

  if isDigit_A then WriteLn('Среди цифр была цифра ',A:1)
    else WriteLn('Среди цифр НЕ было цифры ',A:1);

  readkey
end.