Program p1;
Var i, k: integer;
Begin
k:=0;
For i:=4 to 14 do begin
if (i mod 2 =0) then k:=k+i*i*i;
end;
Writeln('Сумма кубов всех четных чисел от 4 до 14 - ',k);
End.
Program p1;
Var i, k: integer;
Begin
k:=0;
For i:=4 to 14 do begin
if (i mod 2 =0) then k:=k+i*i*i;
end;
Writeln('Сумма кубов всех четных чисел от 4 до 14 - ',k);
End.