  prgram d1;
  var s,i:integer;
      begin
      s:=0;
      i:=1;
      while i<=100 do
        begin
        s:=s+i*i;
        i:=i+1;
        end;
      writeln('yuz ededin kvadratlarin cami',s);
      end.
