Составьте программу вычисления значений функции y=1/(x*x-1/(1+x*x)) для x=1,2...10.

1. Современное решение// PascalABC.NET 3.2, сборка 1437 от 03.05.2017// Внимание! Если программа не работает, обновите версию!begin  Range(1,10).Tabulate(x->1/(x*x-1/(1+x*x))).Printlnend.Результат(1,2) (2,0.263157894736842) (3,0.112359550561798) (4,0.0627306273062731) (5,0.0400616332819723) (6,0.0277986476333584) (7,0.0204164965291956) (8,0.0156287569127194) (9,0.0123475380213823) (10,0.0100009901970492)2. Школьное решениеvar  x:integer;begin  for x:=1 to 10 do    Writeln(x,' ',1/(x*x-1/(1+x*x)))end.Результат1 22 0.2631578947368423 0.1123595505617984 0.06273062730627315 0.04006163328197236 0.02779864763335847 0.02041649652919568 0.01562875691271949 0.012347538021382310 0.0100009901970492