Question

составьте программу которая выводит на экран нечетные числа от 1 до 50 в порядке убывания c циклом While

Answer 1

var
  n: integer := 50;

begin
  if (n mod 2 = 0) then
    dec(n);

  while (n >= 1) do
  begin
    writeln(n);
    n -= 2;
  end;
end.

Answer 2

Я учащийся 8 класса. Мы dec не прходили

Answer 3

1. Просто уменьшение на 1, для универсальности
2. Вас карают за чтение документации?
3. И ладно, n -= 1 или n := n - 1