Вычислите сумму квадратов всех целых чисел из промежутка от 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 до B

For i:=a to b do

begin

sum:=sum+i*i;

end;

//выводим найденную сумму

Writeln ('Сумма квадратов всех чисел в промежутке от ', a, ' до ', b, ' равна ', sum);

end.