Задача Pascal, массивы
1)В массиве А[100] уменьшить все числа кратные 7 на величину последнего элемента массива. Написать фрагмент программы.

var a: array[1..999] of integer;begin    for var i := 1 to 100 do begin        a[i] := random(1, 100);        write(a[i] + ' ');    end;    writeln;    for var i := 1 to 100 do begin        if a[i] mod 7 = 0 then            a[i] -= a[100];        write(a[i] + ' ');    end;end.