Определить, встречается ли в ведённом числе хотя бы одна цифра кратная 2 или кратная 3 на паскале с цикла while

program pr;

var x,n:integer;

   flag:boolean;

begin

 write('Введите число: ');

 readln(x);

 flag:= false;

 while x > 0 do

 begin

   n:= x mod 10;

   if (n mod 2 = 0) or (n mod 3 = 0) then

   begin

     flag:= true;

     break;

   end;

   x:= x div 10;

 end;

 if flag then

   writeln('Встречается')

 else

   writeln('Не встречается');

end.

Объяснение:

Выделяем из числа каждую цифру (остаток от деления на 10), проверяем её и убираем из числа, деля его на 10 нацело.