program CalculateS;
vars: real;i: integer;
begins := 0;
for i := 1 to 10 dobeginif i mod 2 = 0 thens := s - 1 / ielses := s + 1 / i;end;
writeln('S = ', s:0:2);
program CalculateP;
varp: real;i: integer;
beginp := 1;
for i := 3 to 11 dobeginp := p * i / (i + 2);end;
writeln('P = ', p:0:2);
end.
program CalculateS;
var
s: real;
i: integer;
begin
s := 0;
for i := 1 to 10 do
begin
if i mod 2 = 0 then
s := s - 1 / i
else
s := s + 1 / i;
end;
writeln('S = ', s:0:2);
end.program CalculateP;
var
p: real;
i: integer;
begin
p := 1;
for i := 3 to 11 do
begin
p := p * i / (i + 2);
end;
writeln('P = ', p:0:2);
end.