циклы.

[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('нету A= ',c);
end else writeln('цифры меньше числа B');
readkey
end.

[MaxNik2009]

Попробуй так:

SES CRT;
var a,b,c,d,x:integer;
begin
  clrscr;
  writeln('ввести цифруA');
  readln(c);
  writeln('ввести цифру B');
  READLN(d);

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

P.S. А при чем тут циклы?