CONST spt = 100; 
VAR a: ARRAY[1..spt] OF INTEGER; 
i, n: WORD; 
s: LONGINT; 

BEGIN 
write('Can tinh tong cua bao nhieu so (<100): '); readln(n); 
writeln('Hay nhap ', n, ' con so do:'); 
s := 0; 
FOR i:=1 TO n DO 
BEGIN 
write('Nhap so thu ', i,': '); 
read(a[i]); 
s := s + a[i]; 
END; 

write('S = ', s); 
readln 
END.