Составить программу в паскале вычисления суммы кубов чисел от 25 до 1255(тему циклы мы только что

Var i:integer;s:real;
begin
s:=0;
for i:=25 to 1255 do
begin
s:=s+power(i,3);
end;
writeln (s);
end.