program sumOfSquares;
varn, i, sum: integer;
beginsum := 0;
write('Enter a value for n: ');readln(n);
for i := n to 2 n dobeginsum := sum + i i;end;
writeln('The sum of squares is: ', sum);
end.
program sumOfSquares;
var
n, i, sum: integer;
begin
sum := 0;
write('Enter a value for n: ');
readln(n);
for i := n to 2 n do
begin
sum := sum + i i;
end;
writeln('The sum of squares is: ', sum);
end.