Const
R = 13;
Var
A:array [1..R] of integer;
Summa,i:integer;
Begin
For i:= 1 to R do
 Begin
 A[i]:=random(R);
 Write(A[i],' ')
 End;
WriteLn;
For i:= 1 to R do
 if A[i] mod 5 = 0 then Summa:=Summa + A[i];
Write('Сумма элементов,кратных 5 = ',Summa);
End.