Verified answer

Объяснение:

program s5;

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

i,s:integer;

begin

for i:=1 to 5 do

begin

readln(a [ i ]);

s:=s+a [ i ];

end

writeln('s=',s);

end.