Решить на ! с клавиатуры вводится два натуральных числа a и b(a

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.

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.