program ArraySum;
var
arr: array$$\mathrm{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${}^{\prime }Суммаэлементовмассива,которыеделятсяна5{:}^{\prime },sum$;
end.