Вычислите сумму квадратов всех целых чисел из промежутка от A до B (A

var a, b, sum, i: integer;begin//вводим исходные данныеwrite (\'Введите число А: \'); readln (a);write (\'Введите число B: \'); readln (b);//проверяем, если B>=A то просим повторить ввод, иначе пропускаемwhile (a>=b) do begin writeln (\'Число A должно быть меньше числа B.\'); write (\'Повторите ввод: \'); readln (b); end;sum:=0; //обнуляем сумму//находим сумму квадратов всех чисел от A до BFor i:=a to b dobeginsum:=sum+i*i;end;//выводим найденную суммуWriteln (\'Сумма квадратов всех чисел в промежутке от \', a, \' до \', b, \' равна \', sum);end.