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

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