program cr;
uses crt;
var i,n,Tong:integer;
A: array[1..100] of integer;
begin
write('nhap n=');readln(n);
for i:=1 to n do
begin
write('nhpa mang A[',i,']:=');readln(A[i]);
end;
Tong:=0;
for i:=1 to n do Tong:=Tong + A[i];
writeln('tonh gia tri cac phan tu la',Tong);
readln
end.