Lista de exercicios - Array - Vetor

Faça um programa para ler 10 números e escrever a soma.

Program Pzim ;
var
numeros: array[1..10] of integer;
soma, cont: integer;
Begin
for cont := 1 to 10 do
begin
writeln('Digite o numero -->', cont,':');
readln(numeros[cont]);
end;
for cont := 1 to 10 do
soma := soma + numeros[cont];
writeln('A soma dos 10 números é:', soma);
End.