Напишите программу, которая вычисляет сумму квадратов первых 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.