Іть написати програму обчислення суми квадратів n перших натуральних чисел

Var i, n, s: integer;
begin
     readln(n);
     for i := 1 to n do s := s + n;
     writeln(s);
end.