Заполнить одномерный массив числами целыми (от 40, до 400) с помощью функции случайных чисел. найти сумму элементов, которые делятся на 5Pascal

Предыдущий
вопрос Следующий
вопрос

program ArraySum;
var
arr: array[1..100] of integer;
i, sum: integer;

begin
sum := 0;

// Заполняем массив случайными числами от 40 до 400
Randomize;
for i := 1 to 100 do
begin
arr[i] := Random(361) + 40; // генерируем числа от 40 до 400
end;

// Находим сумму элементов, которые делятся на 5
for i := 1 to 100 do
begin
if arr[i] mod 5 = 0 then
begin
sum := sum + arr[i];
end;
end;

writeln('Сумма элементов массива, которые делятся на 5: ', sum);
end.