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

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