if B>A then A:=A+1; B:=B+1;
B:=B+1;
if A=B then A:=B+1 else B:=A+1;
if B>A then begin A:=A+1; B:=B+1; end;
begin A:=A+1; B:=B+1; end;
A:=A+1; B:=B+1; end;
B:=B+1; end;
end;
if B>A then B:=A-1 else begin A:=B-2; B:=10; end;
begin A:=B-2; B:=10; end;
A:=B-2; B:=10; end;
B:=10; end;
if (A>B) and (A*B)=0 then begin A:=A+5; B:=80; end else begin A:=B-A; B:=A*B; end;
begin A:=A+5; B:=80; end else begin A:=B-A; B:=A*B; end;
A:=A+5; B:=80; end else begin A:=B-A; B:=A*B; end;
B:=80; end else begin A:=B-A; B:=A*B; end;
end else begin A:=B-A; B:=A*B; end;
else begin A:=B-A; B:=A*B; end;
begin A:=B-A; B:=A*B; end;
A:=B-A; B:=A*B; end;
B:=A*B; end;