Вопрос Помогите сделать прогу на паскале.

[жендос]

Даны два целых числа A и B (A < B). Найти сумму всех целых чисел от A до B включительно.

 

[ilya_yad]

var sum: integer; a: integer; b: integer; begin sum:=0; for i:=a to b do sum:=sum+i; writeln(sum); end;

 

[qsqs]

=(A+B)*(B-A+1)/2

 

[192837465]

var summ:longint; ... for i:=a to b do summ:=summ+i;writeln(summ);