Во-первых, экономия памяти.
Во-вторых, надежное хранение копий нужной информации.
PascalABC.NET 3.3
begin
var a:=Arr(3,5,7,-11,-5,3,7,8).Println;
writeln('s = ',a.Where(x->x mod 2<>0).Sum);
end.
Результат:
3 5 7 -11 -5 3 7 8
s = 9
Var a,d,S:real;
begin
readln(a,d);
S:=(2*a+d*49)/2*49;
writeln(S);
end.