Алфавит состоит из 4-х букв { к, м, у, х }. слова длины 3 перечисляются в лексикографическом порядке. нумерация слов начинается с единицы. какое слово в этом перечислении стоит под номером 50?

Если не разделять понятия неотрицательных и положительных, то этот код:
Var
A,B,C,P,O:integer;
Begin
P:=0;
O:=0;
WriteLn('Введи три числа');
ReadLn(A,B,C);
if A>=0 then P:=P+1
else O:=O+1;
if B>=0 then P:=P+1
else O:=O+1;
if C>=0 then P:=P+1
else O:=O+1;
WriteLn('Положительных чисел ',P);
WriteLn('Отрицательных чисел ',O)
End.

Если разделять, то этот:
Var A,B,C,P,O,N:integer;
Begin
P:=0;
O:=0;
N:=0;
WriteLn('Введи три числа');
ReadLn(A,B,C);
if A=0 then N:=N+1
else
 if A>0 then P:=P+1
 else O:=O+1;

if B=0 then N:=N+1
else
 if B>0 then P:=P+1
 else O:=O+1;

if C=0 then N:=N+1
else
 if C>0 then P:=P+1
 else O:=O+1;
WriteLn('Положительных чисел ',P);
WriteLn('Отрицательных чисел ',O);
WriteLn('Нулей ',N)
End.

Для перевода в двоичную систему делим число на 2 и записываем остатки от деления 
285/2=142 остаток 1
142/2=71 остаток 0
71/2=35 остаток 1
35/2=17 остаток 1
17/2=8 остаток 1
8/2=4 остаток 0
4/2=2 остаток 0
2/2=1 остаток 0
1/2=0 остаток 1
записываем остатки снизу вверх

285₁₀=100011101₂

для перевода десятичного числа в восьмеричную систему счисления  проделываем те же операции, только делим на 8
285/8=35 остаток 5
35/8=4 остаток 3
4/8=0 остаток 4
записываем ответ снизу вверх
285₁₀=345₈
для перевода десятичного числа в шестнадцатеричную систему делим соответственно на 16
285/16=17 остаток 13, что в шестнадцатеричной системе соответствует букве D
17/16=1 остаток 1
1/16=0 остаток 1
ответ 285₁₀= 11D₁₆