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

var   z: real;            // объявление переменных   n, i: integer;   // объявление переменныхbegin   write(\'Введите: \'); // Вывод на экран текстовой строки   readln(n);             // считываем значение переменной     for i:=1 to n do   // начало цикла        begin          z:=z+power(i,2);     // вычисляем квадрат числа       end;  writeln(\' Ответ = \', z);     // вывод на экран строки с ответомend.