Задачи на циклы while . Напишите программу, которая получает на вход положительное число. Если введенное число четное выводятся все четные числа до этого числа, если нечетное выводятся все нечетные числа до этого числа.​

var

 n: integer;

 i: integer;

begin

 i := 0;

 writeln('Введите число: ');

 readln(n);

 if n mod 2 = 0 then

   while i < n do

   begin

     i := i + 1;

     if i mod 2 = 0 then

       write(i, ' ')

   end

 else

   while i < n do

   begin

     i := i + 1;

     if i mod 2 <> 0 then

       Write(i, ' ')

   end

end.