1)найти произведение натуральных чисел от f до 11 (f< 11) 2)найти сумму натуральных чисел от 21 до d решите правильно,добавлю ещё

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018Внимание! Если программа не работает, обновите версию!1)

begin

 ReadInteger('f=').To(11).Aggregate(1, (p, q)-> p * q).Println

end.

f= 516632002)

begin

 21.To(ReadInteger('D=')).Sum.Println

end.

D= 561386