Даны два целых числа A и B (A amp;lt; B). Отыскать

составим программку для вычисления суммы всех целых чисел от А до В , где А и В входят в эту сумму.
A и B - это целые числа, и ( A lt; B ) .

var
i , a , b : integer ;
k : Int64 ;

begin
readln ( a , b ) ;
for i : = a to b do
k + = sqr ( i ) ;
writeln ( k ) ;
end.