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

var n: byte; //Заводим переменную для числа.

sum: integer; //И для суммы.

begin //Начало.

for n := 1 to 25 do //Циклом проходимся по заданному диапазону.

if n mod 2 > 0 then //Если число не кратно 2. 

sum := sum + n; //Прибавляем его к общей сумме.

writeln(\'Сумма нечётных чисел от 1 до 25 равна \', sum); //Выводим сумму.

end. //Конец.