1Var
2 i,s: Integer;
3 BEGIN
4 s:=0;
5 For i:=1 to 100 do
6 s:=s+i;
7 Writeln('Сумма чисел от 1 до 100 = ',s);
8 Readln
9 END.
1Var
2 i,s: Integer;
3 BEGIN
4 s:=0;
5 For i:=1 to 100 do
6 s:=s+i;
7 Writeln('Сумма чисел от 1 до 100 = ',s);
8 Readln
9 END.