var a,b,i,s:integer;
begin
writeln ('Ââåäèòå a');
readln (a);
writeln ('Ââåäèòå b');
readln (b);
for i:=a to b do
s:=s+i*i;
write ('Ñóììà ðàâíà ',s);
end.