Someone

program laba6;

uses math;

type pryamoikod = record
	sign:integer;
	main:string;
		  end;

var A,B,C:integer;
    A2,B2,C2:pryamoikod;

procedure convert(X:integer;var X2:pryamoikod);
var i,temp:longint;
    k:real;
begin
	if X>0 then X2.sign:=0
	else X2.sign:=1;
	if X<0 then X:=abs(X);
	k:=Log2(X)+1;
	i:=0;
	X2.main:='';
	while i <= k do
	begin
		i:=i+1;
		temp:=X mod 2;
		X:=X div 2;
		if temp=1 then X2.main:='1'+X2.main
		else X2.main:='0'+X2.main;
	end;
	X2.main:=copy(X2.main,2,i);
end;

begin
	writeln('input A');
	read(A);
	writeln('input B');
	read(B);
	convert(A,A2);
	convert(B,B2);
	writeln('I step ');
	writeln('A     ',A2.sign,'  ',A2.main);
	writeln('B     ',B2.sign,'  ',B2.main);
	if B2.sign=1 then B2.sign:=0
	else B2.sign:=1;
	writeln;
	writeln('II step ');
	writeln('A     ',A2.sign,'  ',A2.main);
	writeln('B     ',B2.sign,'  ',B2.main);
	C:=A-B;
	convert(C,C2);
	writeln;
	writeln('III step ');
	writeln('A     ',A2.sign,'  ',A2.main);
	writeln('B     ',B2.sign,'  ',B2.main);
	writeln('C     ',C2.sign,'  ',C2.main);
end.