Даны два целых числа A и B (A < B). Найти сумму квадратов всех целых чисел от A до B включительно.

Var

a, b, i, s:integer;

begin

writeln ('Введите A:');

readln (a);

writeln ('Введите B:');

readln (b);

for i:=a to b do

s:=s+sqr (i);

writeln ('сумму всех кводратов целых чисел от A до B включительно:', s);

end.