Помогите, пожалуйста! Информатика , цикл 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.