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

var a, i : integer;

begin

a : = 49; / / Последнее нечётное число в промежутке от 1 до 50 включительно.

repeat / / Воспользуемся циклом 'repeat', так как это самый быстрый вариант в данном случае.

writeln (a);

a : = a - 2; / / Если из нечётного числа вычесть 2, получим также нечётное число.

until a = 1;

end.