PAscal ABC

1. найти сумму всех четных чисел

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.