Прямой обратный дополнительный код

[kubachi]

кто нибудь поможет с программкой вводим число переводим в 2 систему счисления.... после строим прямой обратный и дополнительный коды... http://kuba4i.my1.ru/RGR.pas вот то что писал там там в procedure programma;

[kubachi]

procedure programma;
 var
i,pp,kod,chislo,op,po:integer; c,a,b:string;
rez :array [1..1000] of integer;
begin
clrscr;
i:=0; c:='1'; a:='1';
writeln('Введите число') ;
readln(chislo);
op:=chislo;
po:=chislo;
if chislo>0 then begin
repeat
i:=1+i;
kod:=op mod 2;
op:=op div 2;
rez[i]:=kod;
until op<2 ;
pp:=i;
write('Двоичный код :> ');
for i:=i downto 1 do begin
 b:=b+c;
 write(c,rez[i]);
 c:='';
 end;
op:=po;
  writeln;
repeat
i:=1+i;
kod:=op mod 2;
op:=op div 2;
rez[i]:=kod;
until op<2 ;
pp:=i;
write('Двоичный код :> ');
for i:=i downto 1 do begin
 write(b,rez[i]);
 b:='';
 end;
  end


       else
        begin
chislo:=-chislo;
Write('Двоичный код');
 repeat
i:=1+i;
kod:=chislo mod 2;
chislo:=chislo div 2;
rez[i]:=kod;

write(a,rez[i]);
a:='';
until chislo<2 ;
writeln;
write('Прямой код:> ');
a:='1';
write(a);
for i:=i downto 1 do begin
 write(c,rez[i]);
 c:='';
 end;   end;


readln;
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.