begin
  var a := ReadInteger('a = ');
  var b := ReadInteger('b = ');
  var Sum := 0;
  
  for var i := a to b do
    Sum := Sum + i*i;
    
  Writeln('Sum = ', Sum);
end.