uses crt; const N=4; var i,s:integer; a:array [1..N] of integer; begin s:=0; for i:=1 to N do begin write ('a',i,' = '); read(a[i]); end; for i:=1 to N do s:=s+a[i]; write ('s = ',s); end.