suma_pro.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

program suma_produs;
{sa se calculeze S=1*2+2*3+...n*(n+1)}
var s,n,i:integer;
begin
write('n= ');
readln(n);
s:=0;
for i:=0 to n do
s:=s+i*(i+1);
writeln('suma este ',s);
end.