Программа, которая выводит на экран в обратном порядке нечетные числа от 29 до 1:

program ReverseOddNumbers;
var
i: integer;
begin
for i := 29 downto 1 do
begin
if i mod 2 <> 0 then
writeln(i);
end;
end.

Программа, которая выводит на экран сумму нечетных чисел от 1 до 30:

program SumOfOddNumbers;
var
i, sum: integer;
begin
sum := 0;
for i := 1 to 30 do
begin
if i mod 2 <> 0 then
sum := sum + i;
end;
writeln('Сумма нечетных чисел от 1 до 30: ', sum);
end.