Question

Помогите пожалуйста написать программу в паскале

Answer 1

var
  x, S: real;
  n: integer;
begin
  readln(x);
  for n := 1 to 10 do
    S := S + sqr(1 - x) / (sqr(n) - 3);
  writeln(S);
end.