сделайте в паскале ​

                                     PascalABC.NET

1)

begin

 Range(-3,10).Tabulate(x -> sqr(x)+5).ForEach(x -> Println('x =',x[0],'y =', x[1]))

end.

2)

begin

 var a := Range(2,22,2).Println;

 a.Sum.Println;

 a.Product.Println

end.