Вычислите сумму чисел от 1 до 100 т.е для решения используем соотношения: s=s+c; c=c=1,где s-текущее значение суммы чисел; с-текущее значение числа(начальное значение s=0 и c=1)

var
  S, C:integer;
begin
  S := 0;
  for C := 1 to 100 do
    S := S + C;
  writeln('S = ', S);
  readln;
end.

Program zadacha;

var s,c:integer;

Begin

s:=0;

for c:=1 to 100 do

      s:=s+c;

writeln(s);

end.