30 БАЛЛОВ!!!! Вычислите сумму всех целых чисел в диапазоне [a;b], где a, b-целые числа.

program e;uses crt;var i,a,b,k: integer;beginread(a,b);for i:= a to b dok:= i+i;writeln(k);end.