Дан массив целых чисел из 15 элементов,заполнненый случайным образом числами из промежутка [-20,50] Вывести все элементы,в записи которых есть цифра 5 или 7.

// Листинг программы и скриншот результата в приложениях.const     max_v = 15;    m1 = -20;    m2 = 50;    var i,j:byte;    v:array [1..max_v] of integer;    a,b:integer;// начальное заполнение массиваprocedure randomArray(tx:string);var i:byte;begin  writeln(tx);  randomize();    for i:=1 to max_v do begin    v[i]:=random(m1,m2);    write(v[i]:6);  end;  writeln('');  writeln('');end;begin  randomArray('Начальный массив');  writeln('Вывести все элементы,в записи которых есть цифра 5 или 7');    for i:=1 to max_v do begin    //десятки числа    a:=v[i] div 10;    //единицы числа    b:=v[i] mod 10;    if (a=7) or (a=5) or (b=7) or (b=5)     then      writeln(v[i]);  end;    end.