745 / Л.Р.№3 / Lab3_var_6

Program LAB_3;
uses crt;
var a,b,c,b1,c1:string;
i,j:integer;

Procedure OBMIN(var aa:string);
var i:integer;
Begin
i:=length(aa);
while aa[i]<>'1' do dec(i);
for i:=i-1 downto 2 do if aa[i]='0' then aa[i]:='1'
else aa[i]:='0';
insert('00000000',aa,1);
aa[1] := aa[9];
aa[9] := '0';
end;

Procedure Korect(var aa:string);
var i:integer;
Begin
i:=length(aa);
while aa[i]<>'1' do dec(i);
for i:=i-1 downto 1 do if aa[i]='0' then aa[i]:='1'
else aa[i]:='0';
delete(aa,1,1);
insert('0',aa,1);
insert('00000000',aa,9);
end;

Function SUM(var b,a:string):string;
var j,r:integer; c:string;
begin
r:=0; c:=a;
for j:=16 downto 1 do
begin
if ord(b[j])+ord(c[j])-96+r>1 then
begin
if ord(b[j])+ord(c[j])-96+r>2 then c[j]:='1'
else c[j]:='0';
r:=1;
end
else
begin
if ord(b[j])+ord(c[j])-96+r=1 then c[j]:='1'
else c[j]:='0';
r:=0;
end;
end;
Sum:=c;
end;

Function ERROR(a:string):boolean;
var i:integer;
begin
ERROR:=TRUE;
if length(a)<>8 then ERROR:=FALSE
else for i:=1 to length(a) do if (a[i]<>'1')and(a[i]<>'0') then
ERROR:=false;
end;

Begin
clrscr;
writeln('A,B-?');
readln(b);
readln(a);
b1:=b;
if (ERROR(a))and(ERROR(b)) then
begin
insert('00000000',b,0);
c:='0000000000000000';
for i:=8 downto 1 do begin
if a[i]='1' then c:=SUM(b,c);
insert('0',b,17);
delete(b,1,1);
end;
c1:=c;
if (a[1]='1')and(b1[1]='1') then
begin
OBMIN(a);
OBMIN(b1);
a[1]:='0';
b1[1]:='0';
c1:=sum(a,b1);
delete(c1,1,8);
insert('00000000',c1,7);
c1:=sum(c,c1);
end
else if a[1]='1' then
begin
Korect(b1);
b1[1]:='1';
c1:=SUM(b1,c1);
end
else
if b1[1]='1' then
begin
Korect(a);
a[1]:='1';
c1:=SUM(a,c1);
end;
writeln(c1);
end
else writeln('Pomulka!');
readkey;
end.