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

begin
  var n:=ReadInteger('Введите n-> ');
  var s:=0;
  for var i:=1 to n do
   s+=i*i;
  Println('Сумма:',s);
end.


Введите n->  3
Сумма: 14 


begin
  var n:=ReadInteger('Введите n-> ');
  var s:=1;
  for var i:=1 to n do
   s*=i;
  Println('Сумма:',s);
end.


Введите n->  3
Сумма: 6