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