Дан массив из n чисел. Получить сумму элементов массива, которые кратны 5
Паскаль

program sum;varArr: array [1..10] of integer;n,i: integer;Sum: integer;begin{Заполнение массива и подсчёт суммы}n:=10;randomize;Sum:=0;for i:=1 to n do begin  Arr[i]:=random(100);  write(Arr[i],',');  if Arr[i] mod 5=0 then    Sum:=Sum+Arr[i];end;writeln;writeln('сумма элементов кратных 5  равна  ', Sum);readln;end.