В заданном массиве определить есть ли хотя бы один элемент, который является…

Выводит 2 строки: Сам массив (20 элементов от 10 до 99) и строку с номерами элементов кратных 7, если таковых элементов нет, то пишет No elements.program test; uses crt; const t: boolean=false; var arr: array[1… 20] of integer; i: integer; begin randomize; clrscr; for i: =1 to 20 do begin arr[i]: =random (90)+10; write (arr[i],'); end; writeln; for i: =1 to 20 do if arr[i] mod 7=0 then begin write (i,'); t: =true; end; if t=false then write ('No elements'); end.