Решите задачу на паскале!!! В промежутке [m, n] найти все числа, в записи которых нет цифры b.

Program Pr1;uses crt;var mas:array[byte] of integer; i,n,m,b,a,c:integer; tmp,tmp1:string;Beginclrscr;writeln('Введите промежуток и число');readln(m,n,b);str(b,tmp);for i:=m to n do begin c:=0; tmp1:=''; str(i,tmp1); for a:=1 to length(tmp1) do if tmp1[a]<>tmp[1] then c:=c+1; if c=length(tmp1) then writeln(i); end;end.

Program Program1;vari,n,m,b:integer;s,s1:string;Beginwrite('Введите значение m: ');readln(m);write('Введите значение n: ');readln(n);write('Введите значение b: ');readln(b);str(b,s);for i:=m to n dobeginstr(i,s1);if pos(s,s1)=0 then writeln(i);end;end.