S=3+6+9+12+15+18+21

var a:array [1..7] of integer;
i,j:integer;
begin
clrscr;
j:=3;
for i:=1 to 6 do begin
a[i]:=j;
j:=j+3;
end;
for i:=1 to 7 do
j:=j+a[i];
writeln('Сумма элементов равна = ',j);
end.

Буквы сам заменишь