program CalculateFunction;
varx, h: real;f: real;
beginh := Pi / 8;
for x := 0 to Pi step h dobeginf := (Sin(x) + Cos(x)) / (1 + x * x);writeln('x = ', x:0:2, ', f = ', f:0:2);end;end.
program CalculateFunction;
var
x, h: real;
f: real;
begin
h := Pi / 8;
for x := 0 to Pi step h do
begin
f := (Sin(x) + Cos(x)) / (1 + x * x);
writeln('x = ', x:0:2, ', f = ', f:0:2);
end;
end.