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

Вера

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.