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

// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017

1)
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