Вычислить сумму кубов трёхзначных чётных чисел — Pascal(Паскаль)

uses Crt;
var s,i,k:LongInt;
begin
clrscr;
s:=0;
for i:=100 to 105 do
begin
       if (i mod 2=0) then 
       begin
              k:=i*i*i;
              s:=s+k;
       end;
end;
writeln(s);
readln;
end.