Моренные формы рельефа образованы деятельностью

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 don't stop and so can read answer}
end.