1) определить чётное и нечётное, положительное или отрицательное число.

Var x: integer; begin writeln('введите число'); readln(x); if x mod 2=0 then writeln('число ',x,' - чётное') else writeln('число ',x,' - нечётное'); if x> 0 then writeln('число ',x,' - положительное') else if x< 0 then writeln('число ',x,' - отрицательное') else writeln('число ',x,' - неположительное и неотрицательное число') end.

лексикогрфический порядок: сравниваются первые буквы, если они однаковы, то вторые, третьи и т.д.

баскетбол

гимнастика

гитара

канал

посетить

почерк

расчёт

расчётливый

спортсмен

справа

справедливый

чехол

шоссе

шофёр