Составе программку, которая выводит на экран нечётные числа от 1 до

var a, i : integer;
begin
a := 49; // Последнее нечётное число в промежутке от 1 до 50 включительно.
repeat // Воспользуемся циклом repeat, так как это самый прыткий вариант в данном случае.
writeln (a);
a := a - 2; // Если из нечётного числа отнять 2, получим также нечётное число.
until a = 1;
end.