Составить алгоритм вычисления суммы нечетных чисел от 1 до 25

Var 
    i, summ:integer;
begin 
    summ := 0;
    for i:=1 to 25 step 2 do summ := summ + i;
end.