Создать алгоритм вычисления суммы кубов четных чисел от 100 до 300.

VAR  S: longint;begin  for k: integer := 100 to 300 do    s += sqr(k);  writeln(s);end.

var    s: longint;    i: integer;begin    s := 0;    for i := 100 to 300 do        s := s + i * i * i;    writeln(s);end.