Умоляю мне авас Нужно написать блок схему и программу паскаль к задаче. есть трехзначные числа. необходимо найти количество чисел, Произведение цифр которых меньше восьми. сделать как вложенный цикл Умоляю

var

a,b,i,count:integer;  

begin

i:=100;

repeat

  b:=i;

  a:=1;

  while b>0 do

    begin

      a:=a * (b mod 10);

      b:=b div 10;

    end;

  if a < 8 then

    begin

      inc(count);

      write(i:4);

    end;

  inc(i);

until i>=999;

writeln;

writeln('Count: ',count);

end.