Держи функцию проверки, есть ли число: function check (n: integer):boolean; var yes: boolean; begin yes:=false; while n > 0 do begin if n mod 10 = 2 then begin yes:=true; break; end; n:=n div 10; end; check:=yes; end; Дальше просто примени её в цикле