program CalculateFunction;
vax, h: realf: real;
begih := Pi / 8;
for x := 0 to Pi step h dbegif := (Sin(x) + Cos(x)) / (1 + x * x)writeln('x = ', x:0:2, ', f = ', f:0:2)endend.
program CalculateFunction;
va
x, h: real
f: real;
begi
h := Pi / 8;
for x := 0 to Pi step h d
begi
f := (Sin(x) + Cos(x)) / (1 + x * x)
writeln('x = ', x:0:2, ', f = ', f:0:2)
end
end.