program ciag; uses crt; var n:integer; t:array[1..10]of integer; begin clrscr; writeln('an=4n+2'); for n:=1 to 10 do begin t[n]:=4*n+2; writeln('a',n,'= ',t[n]); end; writeln('suma ciagu'); writeln((((t[1]+t[10])/2)*10):0:0); readln; end.
think