1)составьте алгоритм вычисления куба всех чётных чисел от 2 до 100 2)составьте алгоритм вычисления суммы кубов всех нечётных чисел от 101 до 301 и обьясните примерно что да как делалось

Var i,s:integer;
begin
s:=0;
for i:=2 to 100 do
if not odd(i) then s+=i*i*i;
writeln(s);
s:=0;
for i:=101 to 301 do
if odd(i) then s+=i*i*i;
writeln(s);
end.