Программа, осуществляющая внутреннее представление целых чисел в компьютере

program kkk;
var b:array[1..100] of integer; b1:array[1..100] of integer;
a,v,c,n,d,a1,i,k,r,a2,i1,i2,i3,n1,n2,y1,a3,n3,d1,n4,r1,v1,c1:integer;
p,x,y:real;
s,s1,s2,s3,s0,s4,s5,s6,s7:string;
begin
writeln('введите число');
readln(a);
writeln('введите размер ячейки памяти');
readln(v);
n:=0;
a1:=a;
a2:=a;
s0:='0';
n3:=0;
v1:=v;
if a<=0 then a:=a*(-1);
while(a>=2) do
begin
c:=a mod 2;
a:=a div 2;
n:=n+1;
end;
for i:=n+1 downto 1 do
begin
d:=a1 mod 2;
b[i]:=d;
a1:=a1 div 2;
end;
for i:=1 to n+1 do
begin
if b[i]=0 then s[i]:='0'
else if b[i]=1 then s[i]:='1'
else if b[i]=2 then s[i]:='2'
else if b[i]=3 then s[i]:='3'
else if b[i]=4 then s[i]:='4'
else if b[i]=5 then s[i]:='5'
else if b[i]=6 then s[i]:='6'
else if b[i]=7 then s[i]:='7'
else if b[i]=8 then s[i]:='8'
else if b[i]=9 then s[i]:='9';
s1:=s1+s[i];
end;
k:=length(s1);
r:=v-k;
if r>0 then
for i:=1 to r do
begin
s2:=s2+s0;
s3:=s2+s1;
end;
writeln(s3, ' прямой код');
if a2<0 then
for i1:=1 to length(s3) do begin
if s3[i1]='1' then s3[i1]:='0'
else if s3[i1]='0' then s3[i1]:='1';
end;
if a2<0 then writeln(s3, ' обратный код');
n1:=length(s3);
for i2:=1 to length(s3) do
b1[i2]:=strtoint(s3[i2]);
for i3:=1 to n1 do
begin
p:=power(2,n1-i3);
x:=x+b1[i3]*p;
end;
y:=x+1;
y1:=Round(y);
a3:=y1;
while(y1>=2) do
begin
c1:=y1 mod 2;
y1:=y1 div 2;
n3:=n3+1;
end;
for i:=n3+1 downto 1 do
begin
d1:=a3 mod 2;
b1[i]:=d1;
a3:=a3 div 2;
end;
for i:=1 to n3+1 do
begin
if b1[i]=0 then s4[i]:='0'
else if b1[i]=1 then s4[i]:='1'
else if b1[i]=2 then s4[i]:='2'
else if b1[i]=3 then s4[i]:='3'
else if b1[i]=4 then s4[i]:='4'
else if b1[i]=5 then s4[i]:='5'
else if b1[i]=6 then s4[i]:='6'
else if b1[i]=7 then s4[i]:='7'
else if b1[i]=8 then s4[i]:='8'
else if b1[i]=9 then s4[i]:='9';
s5:=s5+s4[i];
end;
n4:=length(s5);
r1:=v1-n4;
if r1>0 then
for i:=1 to r1 do
begin
s6:=s6+s0;
s7:=s6+s5;
end;
if a2<0 then writeln(s5, ' дополнительный код');
end.

program kkk;
 
var
  b: array[1..100] of integer;
  b1: array[1..100] of integer;
  a, v, c, n, d, a1, i, k, r, a2, i1, n1: integer;
  s, s1, s2, s3, s0: string;
 
BEGIN
  writeln('введите число');
  readln(a);
  writeln('введите размер ячейки памяти');
  readln(v);
  n := 1;
  s0 := '0';
  a2 := a;
  if a <= 0 then a := a * (-1);
  a1 := a;  
 
  while(a >=2) do
  begin
    c := a mod 2;
    a := a div 2;
    inc(n);
  end;  
  
  for i := n downto 1 do
  begin
    d := a1 mod 2;
    b[i] := d;
    a1 := a1 div 2;
  end;  
 
  s:='';
  for i := 1 to n do
  case b[i] of
    0: s := s+'0';
    1: s := s+'1';
    2: s := s+'2';
    3: s := s+'3';
    4: s := s+'4';
    5: s := s+'5';
    6: s := s+'6';
    7: s := s+'7';
    8: s := s+'8';
    9: s := s+'9';
    end;
  s1:=s;
  k := length(s1); 
  
  r := v - k;
  
  if r > 0 then
    for i := 1 to r do
    begin
      s2 := s2 + s0;
      s3 := s2 + s1;
    end;
 
  writeln(s3, ' прямой код');
  
  if a2 < 0 then
    for i := 1 to length(s3) do 
      if s3[i] = '1' then
        s3[i] := '0'
      else 
        s3[i] := '1';
    
  if a2 < 0 then writeln(s3, ' обратный код');
  n1 := length(s3);
  
  i1:=1;
  for i := n1 downto 1 do
    begin
      b1[i1] := strtoint(s3[i]); 
      inc(i1);
    end;
    
  //можно не переводить двоичное число в десятичное, чтобы прибавить к нему 1
  if b1[1]=0 then 
    b1[1]:=1
  else
    begin
      b1[1]:=0;
      b1[length(s3)+1]:=0;
      for i:=2 to length(s3) do
      begin
        if b1[i]=0 then begin         
          b1[i]:=1;
          break;
        end
        else 
          b1[i]:=0;
          //if i=length(s3) then b1[i+1]:=1; на случай, если будет «переполнение»
      end;             
    end;
  
  
  if a2<0 then
  begin
    for i:=length(s3) downto 1  do
    write(b1[i]);
    write(' дополнительный код ');    
  end 
  END.