Составить программу решения в паскаль авс. даны два целых числа а и в (а меньше в). найти сумму всех целых чисел от а до в включительно.

Var a, b, c, i: integer;
begin
     readln(a, b);
     for i := a to b do c := c + i;
     writeln(c);
end.

Проверил)