Ответ:
готово
Объяснение:
program summa;
var
a, b, i, sum: integer;
begin
Write('Введите число a: ');
ReadLn(a);
Write('Введите число b >= a: ');
ReadLn(b);
for i := a to b do
sum := sum + sqr(i);
WriteLn('Сумма квадратов чисел от a до b равна ', sum);
end.