Паскаль, найти сумму квадратов черных чисел натурального ряда до 100

Var i, sum: integer;
begin
     sum := 0;
     for i := 1 to 50 do
        {answer too big => -24908}
     begin
          sum := sum + i * i * 4
     end;
     writeln(Sum = , sum);
     readln(i) {programm dont stop and so can read answer}
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.