suma_pro.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 11 行

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.