PAscal ABC1.найти сумму всех четных чисел2. вычисление кубов чисел от 25 до 125(нужен код)

{1}
var
  sum, i, n, n2: integer;
begin
  write(Диапазон чисел от );
  read(n);
  write(до );
  read(n2);
  for i := n to n2 do
    if i mod 2 = 0 then sum := sum + i;
  writeln(Сумма четных чисел: , sum);
end.

{2}
var
  i: integer;
begin
  writeln(Список кубов от 25 до 125: );
  for i := 25 to 125 do
    writeln(i, в кубе = , power(i, 3));
end.