program chuogntrinh;
var a:array[1..100] of integer;
     n,i,s:integer;
     begin
     writeln('nhap so phan tu'); readln(n);
     for i:=1 to n do
     readln(a[i]);
     s:=0;
     for i:=1 to n do
     if a[i] mod 2 = 0 then
     begin
     if a[i] mod 5=0 then
     s:=s+a[i];end;
     for i:=1 to n do
     writeln(a[i]:5);
     writeln('tong la',s:4);
     readln;
     end.

Program BT;
Var i,n,t : longint;  
    a : array [1..100] of longint;
Begin
repeat
Write ('Nhap N : ');Readln(n);
until n > 0;
t := 0;
For i := 1 to n do
Begin
Write ('A[',i,']= ');Readln(A[i]);
If (a[i] mod 2 = 0 ) and (a[i] mod 5 = 0) then t := t + A[i];
end;
For i := 1 to n do Write (A[i],' ; ');
writeln;
Write ('Tong cac so do la : ',t);
end.