Program Tema2;
var n,s,k:integer;
p:real;
begin
s:=0;
p:=1;
(*Variabila k iti spune cu cat este inmultit fiecare termen in parte*)
(*Daca vrei sa-l faci pe c) pui 3, daca vrei sa-l faci pe d) pui 4*)
k=3;
writeln('Introduceti numarul: ');
readln(n);
for i=1 to n do
begin
s:=s+k*i;
p:=p*k*i;
end;
writeln('Suma este: ',s);
writeln('Produsul este: ',p);
end.
