Ответ:

program vlasov_loc;

   var i, s: integer;

   var a: array [1..5] of integer;

begin

   for i:= 1 to 5 do readln(a[i]);

   for i:= 1 to 5 do s:=s+a[i];

   writeln ('Сумма элементов массива - ', s)

End.

Объяснение: