Question

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

Answer 1

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.

Answer 2

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