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

rogram summakv; var a,b,i,s: integer;beginWriteln('Введите 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.