Найти сумму квадратов чисел натурального сюда от a до b используя цикл с параметром — Pascal(Паскаль)

var
  a, b, kol, i: longint;

begin
  readln(a, b);
  if a <= b then
    for i := a to b do
      inc(kol, sqr(i))
  else
    for i := a downto b do
      inc(kol, sqr(i));
  writeln(kol);

end.