program SumOfSeries;
varx, sum: integer;i: integer;
beginsum := 0;
write('Enter a value for x: ');readln(x);
for i := 0 to 10 dobeginif i mod 2 = 0 thenbeginsum := sum + power(x, i);end;end;
writeln('Sum of the series: ', sum);end.
program SumOfSeries;
var
x, sum: integer;
i: integer;
begin
sum := 0;
write('Enter a value for x: ');
readln(x);
for i := 0 to 10 do
begin
if i mod 2 = 0 then
begin
sum := sum + power(x, i);
end;
end;
writeln('Sum of the series: ', sum);
end.