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

Question

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

Answer 1

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