В диапазоне от а до b найти все числа, в которых нет цифр кратных трем

Program prog;
uses crt;
const N=15;
var i, a,b: integer;
mas: array [1..N] of integer;
Begin
clrscr;
Randomize;
Write('Введите a: ');
Read(a);
Write('Введите b: ');
Read(b);
// заполняем массив случайнми числами
Write('Исходный массив: ');
For i:=1 to N do Begin
mas[i]:=Random(30);
Write(mas[i],' ');
End;
Writeln;
// выводим полученный массив
Write('Итоговый массив: ');
For i:=a to b do Begin
if (mas[i] mod 7 <> 0) then Write(mas[i],' ');
End;
readln;
End.

Program prog;
uses crt;
var i,a,b: integer;
Begin
clrscr;
Write('Введите a: ');
Read(a);
Write('Введите b: ');
Read(b);
For i:=a to b do Begin
if (i mod 7 <> 0) then Write(i,' ');
End;
readln;
End.

function checknumber(n:integer):boolean;
begin
  checknumber:=true;
  while n>0 do begin
    if (n mod 10) mod 3=0 then begin
      checknumber:=false;
      break;
    end;
    n:=n div 10;
  end;
end;
 
var a,b,i:integer;
 
begin
  writeln('введите диапозон a,b через пробел');
  readln(a,b);
  for i:=a to b do
    if checknumber(i) then
      write(i,' ');
  readln;
end.

var a,b,n:integer; f:boolean;
begin
repeat
writeln('Введите А и В');
readln(a,b);
until a<b;
repeat
n:=a; f:=false;
while n>0 do
begin
  if (n mod 10)mod 3=0 then 
  begin
  f:=true; break
  end 
  else n:=n div 10;
end;
if not f then writeln(a);
inc(a);
until a=b;
end.