program SumOfFiveElements;
vari, sum: integer;arr: array[1..16] of integer = (2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28, 30, 32);
beginsum := 0;
for i := 1 to 5 dobeginsum := sum + arr[i];end;
writeln('Sum of the first five elements: ', sum);end.
program SumOfFiveElements;
var
i, sum: integer;
arr: array[1..16] of integer = (2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28, 30, 32);
begin
sum := 0;
for i := 1 to 5 do
begin
sum := sum + arr[i];
end;
writeln('Sum of the first five elements: ', sum);
end.