Дано целое положительное число Аamp;lt;10 вывести на экран все четные и

program raf105;

var  

 i,n: integer;

begin

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

 readln(n);

 write('Чётные: ');

 for i:=1 to n do

   if i mod 2 = 0

     then write(i,' ');

 writeln;

 write('Нечётные: ');

 for i:=1 to n do

   if i mod 2 lt;gt; 0

     then write(i,' ');

end.

PascalABC 3.4.2