Дано 2 целых числа a и b,2<b.Найти сумму квадрата всех чисел от a до b
решить​

var a,b,i,kvadrat: integer;

begin

writeln('Введите числа a и b (a должно быть меньше b)');

readln(a,b);

for i:=a to b do

begin

kvadrat := i*i;

writeln('Квадрат числа ',i,' = ',kvadrat);

end;

end.