А можно подругому?
Вот мой вариант,исправьте пожалуйста ошибку!У меня почему-то не решается....
program fgh;
var
a,c,b,n:integer;
begin
writeln('введите число n');
readln(n);
c:=0;
b:=0;
for a:=1 to n do
begin
b:=b+sqr(a);
c:=b+c;
end;
writeln(c);
end.

Здраствуйте Анна Александровна!
Переделал Вашу программу, просто сравните результат с вашим удалил по моему мнению лишние строки. В том виде в котором вы написали программа считпет следующий ряд 1*1 + 2*2 + 3*3 + ... +n*n, но это не совпадает с заданием Вы сказали считать вещественные числа, а сдесь получаются целые числа. Я предлагаю вам сделать следующим образом: задать кол-во чисел n, с помощью генератора случайных чисел сгенерировать числа и посчитать сумму квадратов полученных чисел, а то посмотрел предыдущий ответ в ручную вводить n штук, как то долго если их задать много. И всё сделать без массива по Вашему алгоритму.

program fgh;
var
a,b,n:integer;
begin
writeln('Введите число n');
readln(n);

b:=0;
for a:=1 to n do
begin
b:=b+sqr(a);

end;
writeln(b);
readln;
end.

Вы не ввели вещественные числа, сумму квадратов которых нужно посчитать. Вместо этого вы считаете сумму квадратов номеров чисел, т.е.
1^2+2^2+3^2....n^2. Смотрите написанную Вам программу с учетом исправлений Зенченко К.Н.