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

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.