program negyzetszam;
uses crt;
var i,n:byte;
    s:longint;
begin
     clrscr;
     s:=0;
     writeln('Add meg az n erteket!');
     readln(n);
     for i:=1 to n do
         s:=s+(i*i);
     writeln('Az osszeg: ',s);
     readln;
end.