Questão 1 (Array - Vetor)

Faça um programa para ler 10 numeros e escrever a soma.

Program Questao2 ;
Var
num, cont, soma : integer;

vetor:array[1..10]of integer;


Begin
cont:=0;
for cont:=1 to 10 do
begin
Writeln ('Escreva o numero');
readln (vetor[cont]);
soma:=vetor[cont]+soma;
end;
writeln ('A soma é ', soma);

End.