Помогите, пожалуйста! Информатика , цикл While: Найти сумму целых чисел в диапазоне от А до В

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