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

program zadacha;vara,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.