Решить в паскале составить программу суммы кубов чисел от 25 до 125

Program zadacha;
var
a,otvet:longint;
i:byte;
begin 
for i:=25 to 125 do   
begin   
a:=0;   
a:=i*i*i;   
otvet:=otvet+a;   
end; 
writeln(otvet);
end.