Помогите пожалуйста решить на Паскале!!!
С клавиатуры вводится два натуральных числа A и B(A<B). Найти сумму квадратов всех чисел от А до В включительно. Если сумма меньше 100, вывести сообщение «Yes», иначе «No».

rogram summakv;

var
a,b,i,s: integer;

begin
Writeln('Введите a и b');
ReadLn(a,b);
for i:=a to b do
begin
s := s + sqr(i);
end;
if s<100
then
writeln('Yes')
else WriteLn('No');
end.

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (a,b):=ReadInteger2;
  var s:=Range(a,b).Select(t->t*t).Sum;
  if s<100 then Writeln('Yes') else Writeln('No')
end.