Старший лом оказался старательным учеником чтобы порадовать капитана врунгеля он выучил морскую семафорная азбука которой каждая буква кодирует.ся определенным положением расшифруйте подаваемые ломом сигналы заранее

1) мечта 2) надвигается шторм 3) счастливого плавания

Если не разделять понятия неотрицательных и положительных, то этот код:
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₁₆