Составить программу вычислить сумму квадратов натуральных чисел на отрезке от 5 до 10

Var 
  i, sum: integer;

begin
  sum := 0;
  i := 5;
  repeat
    sum := sum + i * i;
    i := i + 1;
  until(i >  10);
  write(sum);
end.