С ИНФОРМАТИКОЙ!!
вывести на экран четные нечётные натуральные числа от 19 по убыванию.
на фото пример ​

четные:

program Even;

var a: integer;

begin

   a := 19;

   while a > 0 do

       begin

           if a mod 2 = 0 then writeln(a);

           a := a - 1;

       end;

end.

нечетные:    

program Odd;

var a: integer;

begin

   a := 19;

   while a > 0 do

       begin

           if a mod 2 = 1 then writeln(a);

           a := a - 1;

       end;

end.

Объяснение: