Напишите полное решение без пояснений: вывести на экран элементы…

Uses crt; const n=15; var mas: array [1… n] of integer; i: integer; beginmas[i]: =Random (23) — 10; for i: =1 to n do readln (mas[i]); write ('Числа кратные 7: '); for i: =1 to n do if (mas[i]+i) mod 7=0) thenwrite (mas[i],'); end.