Информатика , цикл while: найти сумму целых чисел в диапазоне от а до в

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var (a,b):=ReadInteger2;
var s:=0;
while a<=b do 
begin
s+=a;
inc(a);
end;
write('сумма: ',s);
end.