program brainly;
var
  n, i:integer;
  summ :real;
begin
  Write('Введите n: ');
  ReadLn(n);
  for i := 1 to n do
    summ += power(i, 2);
  Write('Сумма квадратов первых ', n, ' чисел равна: ', summ);
end.