program tinhtong;
uses crt;
var
begin
clrscr;
writeln('Nhap so phan tu:');readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i);readln(a[i]);
end;
s:=0;
for i:=1 to n do
begin
s:=s+ a[i];
i:=i+1;
end;
writeln('Tong la:',s);
readln;
end.
//mình chưa test lại nên sai thì bạn bỏ qua mình lớp 7