# data[].attributes.body
ficher d'installation

# data[].attributes.body
program p;
uses wincrt;
var i,n,s:integer;
t:array[1..20]of integer;
begin
{saisie de n}
write('n=');
readln(n);

{remplissage du tableau}
for i:=1 to n do
begin
writeln('remplir la case n:',i);
readln(t[i]);
end;

{calcul de la somme des éléments}
s:=0;
for i:=1 to n do
s:=s+t[i];

write('la somme =:',s);
end.