Uses crt;
Var i, n, tong: integer;
A:array[1..100] of integer;
Begin
Clrscr;
Write('Nhap n = '); readln(n);
For i:=1 to n do
Begin
Write('A[',i,']=');
Readln(a[i]);
End;
tong:=0;
For i:=1 to n do if a[i] mod 5 = 0 then inc(tong, a[i]);
Writeln('Tong cac phan tu la boi cua 5 la: ',tong:4:2);
Readln
End.