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

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

VAR
  S: longint;

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