Program Program1;Varn,i,p:integer;beginn:=100;p:=0;for i:=1 to n dop:=p+i;writeln('Сумма чисел=',p);end.