Составить программу Вычислить сумму квадратов натуральных чисел на отрезке от 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.