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.