Вычислите для первых n элементов: 3+6+9+12+ и 3*6*9*12* (с полным решением! )

//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
  var p:Biginteger:=1;
  var s:integer:=0;
  var n:=ReadInteger('Введите число');
  for var i:=1 to n do begin
    p:=p*3*i;
    s:=s+3*i;
  end;
  Println('Сумма кратных 3 =',s,' Произведение =',p);
end.

Тестовое решение:
Введите число 20
Сумма кратных 3 = 630  Произведение = 8483004771271882804592640000