Информатика , цикл 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.

Эти запросы означают вот что.
Сайтов, на которых есть слово торты, или слово пироги, или оба слова - 12000
Сайтов, на которых есть и слово торты, и слово пироги одновременно - 6500
Сайтов, на которых есть слово пироги (торты тоже могут быть) - 7700
Значит, сайтов, на которых есть ТОЛЬКО пироги 7700 - 6500 = 1200
Сайтов, на которых есть торты (пироги тоже могут быть) 12000 - 1200 = 10800.
Именно столько будет выдано по запросу "торты".
(Из них сайтов, на которых ТОЛЬКО торты, но нет пирогов 10800 - 6500 = 4300.
Но это уже сверх твоей задачи)

Эти запросы означают вот что.
Сайтов, на которых есть слово торты, или слово пироги, или оба слова - 12000
Сайтов, на которых есть и слово торты, и слово пироги одновременно - 6500
Сайтов, на которых есть слово пироги (торты тоже могут быть) - 7700
Значит, сайтов, на которых есть ТОЛЬКО пироги 7700 - 6500 = 1200
Сайтов, на которых есть торты (пироги тоже могут быть) 12000 - 1200 = 10800.
Именно столько будет выдано по запросу "торты".
(Из них сайтов, на которых ТОЛЬКО торты, но нет пирогов 10800 - 6500 = 4300.
Но это уже сверх твоей задачи)