"Массив из 7 случайных чисел на отрезке от 10 до 30.Найти номера элементов ,значения...

Program znanija_com;
type
tArray = array[1..7] of integer;
var
arr : tArray;
i : integer;
begin
randomize;
writeln ('Исходный массив:');
for i:=1 to 7 do begin
    arr[i] := random(30-10+1)+10;
    writeln(i, ' - элемент равен ', arr[i]);
end;
for i:=1 to 7 do begin
    if (arr[i] mod 10 = 5) or (arr[i] mod 10 = 0) then writeln(i, ' - кратный 5 ');
end;
readln();
end.

"Массив из 7 случайных чисел ** отрезке от 10 до 30.Найти номера элементов ,значения...