ПОМОГИТЕ РЕШИТЬ ИНФОРМАТИКУ ПОЖАЛУЙСТА!!!
написать программу, которая вычислит сумму и произведения ряда натуральных чисел от 1 до n

//PascalABC.NET 3.2 сборка 1318Var  a,i,s,p:integer;beginp:=1;  readln(a);  for i:=1 to a do    begin      s:=s+i;      p:=p*i;    end; writeln('Сумма:',s); writeln('Произведение:',p); end.