Вычислить сумму квадратов первых десяти натуральных чисел - QBasic

Требуется вычислить сумму квадратов первых десяти натуральных чисел. Спасибо за помощь заранее!

Листинг программы

DIM I AS INTEGER, S AS INTEGER
FOR I = 1 TO 10
    S = S + I ^ 2
NEXT I
PRINT "Сумма квадратов первых десяти натуральных чисел:"; S

Объяснение кода листинга программы

В этом коде:

DIM I AS INTEGER, S AS INTEGER - Объявляются две переменные типа INTEGER (целые числа) - I и S.
FOR I = 1 TO 10 - Запускается цикл, который будет выполняться 10 раз, при этом значение переменной I будет изменяться от 1 до 10.
S = S + I ^ 2 - Значение переменной S увеличивается на квадрат значения переменной I (то есть, на число от 1 до 100).
NEXT I - Цикл выполняется снова, при этом значение переменной I увеличивается на 1.
PRINT Сумма квадратов первых десяти натуральных чисел:; S - Выводится сообщение с заданной фразой, а затем вычисленное значение переменной S. Таким образом, данный код вычисляет сумму квадратов первых десяти натуральных чисел.