Помогите плиз с заданием 1,2. Даю максимальное количество баллов.

// PascalABC.NET 3.3// Cборка 1590 от 03.12.20171)begin  var n:=ReadInteger('Введите n-> ');  var s:=0;  for var i:=1 to n do   s+=i*i;  Println('Сумма:',s);end. Пример:Введите n->  3Сумма: 14 2)begin  var n:=ReadInteger('Введите n-> ');  var s:=1;  for var i:=1 to n do   s*=i;  Println('Сумма:',s);end. Пример:Введите n->  3Сумма: 6