Uses crt; const N=5; var a:array [1..N] of integer; x,sum:integer; begin sum:=0; for x:=1 to N do begin write('a[',x,']:'); readln(a[x]); sum:=sum+a[x]; end; writeln('Sum=',sum); end. --- Вариант работы программы на скрине во вложении