Напишите программу которая вычисляет сумму квадратов первых n натуральных чисел. по циклу for ... to ... do

var

n, i: integer; / / объявляем переменные целочисленного типа.

sum : real; / / объявляем переменную вещественного типа.

begin

writeln (' Введите положительное число:'); / / вывод строки.

readln (n); / / считываем значение числа, введенное с клавиатуры.

for i: = 1 to n do / / начало цикла.

begin

sum: = sum + power (i, 2); / / считаем сумму квадратов на каждом шаге цикла.

end;

writeln (' Сумма квадратов натуральных чисел от 1 до ', n,' равна: ', sum); / / вывод строки.

end.