даны два натуральных числа а и б требуется определить сумму чисел от а до б

Вопрос школьника по предмету Информатика

даны два натуральных числа а и б требуется определить сумму чисел от а до б

Ответ учителя по предмету Информатика

var

  a, b, s, i: integer;

begin

  readln(a);

  readln(b);

  for i := a to b do

  begin

    s := s + i;

  end;

  writeln(s);

end.