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

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

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

begin //Начало.

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

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

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

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

end. //Конец.